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TIREZ PLUS DE VOTRE TRS-80* 
ET DE VOTRE POQUETTE SHARP 
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Logiciels : EDIT, p 20; Accel 3, p 21; Pascal 80, p 22 
• Cote court, p 23 • Trues a brae, p 23 • Deforma- 
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[ i" synthetiseur vocal, p 31; l'interface MDX3, 
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tre programmation, p 45 • Gardez trace 1 y\ 
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• RUBRIQUE POQUET 1ES : La guerre froide, p 54 

• Face cachee du PC 1500, p 57 • 3 programmes 
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Possesscurs de TRS et de VIC, decouvrez le 

support du troisieme type 





STRINOY 
FLOPPY 

WAFtft 



1 in IVttjtrluisfHi a liamlr moilntiiqur Kins lit I f il itlmtrt id m Iml/r rtdlf. 

et ses lecteurs 

L'E.S.F. (Exatron Stringy Floppy) vous apporte unc immense 
souplesse d'utilisation, grace a son branchement direct sur 
votre ordinateur, sans besoin d'interface d'extension. A un 
prix nettement infei ieur* au lecteur de disques, sa vitesse 
est surprenante i environ 1 Ko. par seconde, sans aucune 
manipulation, et avec une fiabilite inegalee sur un systfcme a 
bande magnetique. Son manuel decrit avec soin et en (ran- 
cais, les techniques cvoluees de gestion des fichiers 
sequentiels, sur une ou plusieurs unites chainees. Existe aussi 
en coffret avec son systeme d'exploitation, 5 wafers, des pro- 
grammes de demonstration et un classeur de wafers. 
Carantie 3 mois pieces et main-d'ceuvre. 




» \ 
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Venez voh I'E.S.F. en demonstration p 

MICRO-ENERGY BOUTISOFT 
92, rue St Lazare 9, rue de Lalande 

75009 PARIS 33000 BORDEAUX 
Tel. : (1) 281.23.17 Tel. : (56) 91.55.08 

♦ Prix T.T.C. conseilles au 1/2/83: 

TRS-80 Mod 1 Drive 2.495,- TRS-80 Mod 3 Drive 3.495,- 
TRS-80 Mod 1 Coffret 2-995- TRS-80 Mod 3 Coffret 3.995,- 
VIC-20/64 bientdt disponible TRS-80 Mod 3 suivant 1 .995,- 



L'autrc foumisseur de 

disques pour 
TRS modele ffl ™ 

QUALITE 

Pour ctla nous avons selectionne: 
• le i mil I c u i com role ur qui soil. II vous permct de piloter 
4 disques 5 ou 8 pouces (associe a DOSPLUS et a I'aide d'un 
cable externe). Ses connexions plaquees or v(xis assurent unc fiabi- 
lite a toute epreuve. 
• TANDON, les disques les plus fiables et les plus performants, 
offrant un temps d'acces maximum de 5 ms. 
De plus, 1'assemblage, le montage et les tests individuels sont assu- 
res par nos equipes competentes (prevoir 48 heurcs). Notre garan- 
tie de 3 mois s ctend sur les pieces et la main d'ecuvre. 

PUISSANCE 

Ne vous limitez pas a 175 Ko. pardisqucttc. 

Pourun faible supplement, equipez-vous de disques double face 

en 40 pistes (384 Ko.), ou en 80 pistes (768 Ko). Ces unites peuvenl 

etre combinees de facon a satisfaire tous vos besoins, meme si 

votre ordinateur est deja equipe d'un disquc constructeur. 

PRIX 

La, n'aycz plus aucune hesitation. 
Nous vous offrons la 

configuration de base Cliscjllt* a 



3K* 



preta fonctionner 

En demonstration permanente chcz 

MICRO-ENERGY BOUTISOFT 

92, rue St Lazare 9, rue de Lalande 

75009 PARIS 33000 BORDEAUX 

Tel. : (J) 281.23.17 Tel. : (56) 91.55.08 

♦Prix TTC conseilles au 1/3 83 

Disquc moiin- 175 Ko TRSDOS 5.995 Disquc inCcrnc supp. 175 Ko. 

Disquc monte 384 Ko. sans DOS 7.095 Disquc interne nipp 384 Ko 

Disque monti 768 Ko sans DOS 8.295 Disquc inlvrnc lupp 768 Ko 

Contr6lcur t omplct sans dfsque 3.295 Dosplu* 3.4 MOD 3 

Dcmandez notrc catalogue de produits pour Modele III 



Importation ct Diffusion 

d'Equipcment Micro mtormatiquc 

34 bis, rue Sorbfer 75020 PARIS 

Tel.: (I) 358.44.35 



Importateur exclusif 
Rcchcrchons des rcvcndcuri 
sur loutc la France 



Importation et Diffusion 

d Fquipcrni'nl Mkro-informatique 

34 bis, rue Sorbier 75020 PARIS 

Tel.! (II 358.44,35 



ImpoitaCcur cxtlusif 
Rcclicrchoiis des rcvendcurs 
sur COUtC la France 
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Editorial 



Qui etes-vous ? C ' est la question 
que nous vous posons dans ce numero. 
Non que nous ne sachions rien sur vous, 
puisque votre courrier nous donne sou- 
vent de vos nouvelles. 

Nous savons (bien stir!) que vous 
vous interesez aux TRS et aux poquettes 

Qui etes-vous ? C'est la question 
que nous vous posons dans ce numero. 
Non que nous ne sachions rien de vous, 
puisque votre courrier nous donne sou- 
vent dc vos nouvelles. 

Nous savons (bien sur!) que vous 
vous interessez aux TRS et aux poquettes 
Sharp/ Tandy; nous savons que vous avez 
suiTisairment bon caractere pour ne pas 
(trop) grogner malgre le retard de sor- 
tie de votre journal; nous savons que 
vous realise?, beaucoup de choses sur 
votre machine, meme lorsque vous etes 
debutant, et que vous n'hesitez pas 
(du moins, pas tous! ) a nous adresser 
vos realisations... ce qui fournit une 
bonne partie des articles du journal . 
(Rappelons au passage que tous les arti- 
cles sont remuneres convenablement -mais 
ne comptez sur cette seule ressource 
pour vivre! ) 

Nous savons... mais surtout nous 
ne savons pas qui vous stes reel lenient; 
nous ne savons pas combien d'entre vous 
ont acces a un modele 1, ou 2, ou '. 
ou un eouleur, ou un poquette; nous 
nc savons pas avec certitude quels sont 
les types d 1 articles qu'il vous plairait 
de voir davantage (ou molns!) daiit> nos 
colonnes; nous pensons que le journal 
tel qu'il est voua plait (la preuve, 
vous le lisez!), mais nous savons qu'il 
est loin d'etre parfait, et nous avons 
done besoin de connaltre vos attenl.es. 

Alors, accordez-nous, accordez-vous 
quelqueo Instants pour rcmplir le ques- 
tionnaire de la page suivante: vos re- 
ponses seront precieuses a votre jour- 
nal, et done a 1 'ensemble des lecteurs. 

THACE 



Redactewen chef: Alain Pinaud - Editeur : Bernard Savonel - Directeur de la publication : Jean-Pierre Nizard - Maquette : Studio 
Agraph - Secretariat : Nicole Aleman. 

Redaction et abonnements : Editrace. 8 rue Saint-Marc. 75002 Paris - Regie publicitaire : Force 7. 39 rue de la Grange-aux-Belles, 
75484 Paris Cedex 10. Tel. : (t) 238.66.10 - Diffusion acpres des boutiques informatiques et des librairies : Edition du PSI, 41 rue 
Jacquard.BP 86. 77400 Lagny. 
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le magazine des utilisateurs de TRS-80 





TRS-80 modele 1, TRS-80 

modele 2, TRS-80 modele 3, 

TRS-80 couleur, TRS-80 

de poche, poquettes Sharp 

Video-Genie*, LNW* : 

si vous utilisez ou si vous 

comptez acheter un de ces 

ordinateurs, sachez que la revue 

TRACE a ete creee pour vous. 

TRACE vous fournit quatre 

fois par an des programmes, 

des astuces, de nouvelles idees 

d applications. TRACE est 

independant de tout constructeur, 

et vous tient au courant de toutes 

les nouveautes dans les domaines r des logiciels, des materiels et des 

peripheriques, quelle qu en soit la source. TRACE teste pour vous, en toute objectivite 

et independance, les produits materiels ou logiciels qui vous interessent. TRACE n'est 

pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 

numero, il vous suffit de nous retourner le bon de commande ci-dessous. 



" TRS 80 Shaip Vtdeo-Gemc el LNW sont des marques deposees 



Trace a le mcme editeu- qu ORDI-5 le magazine dos uiilanleufs de ZX SINCLAIH 



TRACE, le complement indispensable de votre TRS-80 



Nom 
Adresse 
Pays 



BON DE COMMANDE 

a retourner a TRACE, 8 rue Saint-Marc 75002 PARIS 

Profession 



_ Code postal 

le n° 4 G le n" 5 



Ville 



dun°4 



• Je desire recevoir le n° 3 a len°4Q len°5 1 de TRACE (NB : lesn"" 1 el 2 sont epuises). 
<Prix dun n" 30 FF; Elranger** 35 FF; par avion 50 FF). 

• Je desire recevoir la disquette d'accompagnement des n os 1 et 2 I J du n° 3 I I 
<Prix dune disquene 55 FF; Etranger** 65 FF). 

• Je desire m'abonner a TRACE pour 4 n° s a partir du n° 3 II dun°4H dun 
C avec disquetle (Tarif France : 290 FF; Etranger** : 320 FF; par avion 400 FF) 
D sans disquette (Tarif France : 105 FF; Etranger** : 120 FF; par avion 190 FF). 

(Actuellement TRACE est tnmestriel). Ci-joint mon reglement indispensable par cheque bancaire i i 



'5I I 



du n° 5 □ 
du n° 6 U 



X 



cheque postal 



virement Li 



•• Pour Ips [).iyb auit*.'-. que la France, uiiliset un viremeni en FF compie Creait Lyonnais Pans n- 30CJ2 00402 8401 M Les frais de vnemenl sont a la charge de I acheleur 




Lecteurs 



qui etes-vous? 



II a'est ecoule un peu plus d'une 
numero I et TRACE £prouve le beao 
naltre de facon a vous satisfaire 
avons pense qu'll serait utile de 
voua . Le questionnaire ci-jolnt q 
trois volets : VOUS, VOTRE SYSTEM 
nous aldera a mieux orienter la m 
tre magazine et de pouvoir mieux 
tentes. II est done de votre inte 
solgneuseraent et de l'erivoyei sou 
chie dans ies meilleurs delais a 



annee depuis notre 
in de mieux vous co- 
au mieux et nous 
faire le point aveo 
ul se compose de 
E et VOTRE REVUE, 
arche future de no- 
repondre a vos at- 
ret de le remplir 
o enveloppe affran- 
l'adresse suivante : 



■; l< ACE 

Enquete Lecteurs 
8 rue Saint-Marc 
Y5O02 - PARIS 



Pour vous encourager a repondre, nous procederons a 
un tirage au sort qui permettra a quatre lecteurs de 
gagner un abonnement d'un an ! 



Blen entendu, nous vous ferons part dea reaultata 
des que le depouillement aura ete effectue. 
ATTENTION : afin de faciliter notre tache, ne joi- 
gnez aucun autre courrier a vos reponses ! Merci. 



I - VOUS 



I ) Age ? — 



2) Sexe ? 



D Maseul in 
D r'eminin 



3) Profession ? 



1) Connaissez-vous 1 'anglais ? 
D- oui 
O- non 
D- un peu 



5) Depuis combien de temps vous intere3sez-vous a 

1* itu'onutitique ? 



6) Lisez— vous d'autres revues ? 
D - non 
O - oui 



Lesquelles ? 



7) Uti lisez- vous votre systeme : 
D - a des fins professionnelles 
O - a des fins pedagogiques 
O - comme "hobby" 
a- autres utilisations Lesquelles 7 



8) Preferez-vuus : 
D- utiliser des programmes 
D - ecrire des programmes 
□ - les deux 



9) Combien dc programmes poseedez- voua (environ) ? 



10) Vous interessez-vous davantage : 
Q - au materiel 
P - au logiciel 
D - aux deux 



11) Quel langage pratiquez-vous le p. us 
Q - BASIC 
D - assembleur 

Q - autre - Lequel ? 



12) Etes-vous affilie a un club V 
Q - non 
D - oui 



13) Dans votre entourage proche, com'jien d'autres 
utiliaateurs connaissez-vous environ ? 



1U) Combien d'heures par seraaine votre systeme vous 
prend-il ? 
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II - VOTRE SYSTEME 



I) Comblen Oe syst&mes bas£s aur des microprocesseurs 
possedez-vous (ordinateur, poquette) ? 



2) Decrivez votre configuration principale. Eat-ce 
□ - un ordinateur de table O- un poquette 



Marque 



Modele 



Annee de fabrication 

Taille memoire totale K octeta 



3) Pour le stockage, utilisez-vous : 
D- cassette 

□ - Exatron (stringy Floppy) 

O- minidisquette (13 era) Corabien d'unites ? 
D- disquette (20 cm) Ccmbien d'unites ? 



4) Possedez-vous une imprimante ? 



b) Plaoez une oroix en face des extensions suivantes 
que vous possedez : 
D- disque d'jr 
O- traceur de courbes 
O- table a numeriser 
D— doubleur de denslte pour modele 1 

□ - caracteres minuscules D- accentues 

□ - horloge CPU rapidc 

□ - Orchestra 80 ou 90 
D- carte 80-Grafix 
D- stylo lumineux 

□ - synthetiseur vocal 
D- entree de la parole 
D- amplificateur sonore 

D- carte graphique haute resolution 

□ - carte d 'adaptation CP/M pour modele 1 ou 3 

D- interface serie RS-232 

D - modem 

D- autre - Laquelle ? 

6) Quel genre d'extenslon vous manque le plus Darmi 
celles qui existent ? 

7) Quelle 3erait pour vous 1' extension "revee" (qui 
n'existe pas encore) ? 

8) Quel prix consentiriez-vous a y mettre ? 

9) Si vous deviez changer de systeme, quelle motiva- 
tion orienterait votre choix ? 



10) Connez en quelques mota lea crlticues que voua 
pourriez adresser a votre systerae actuel ______ 

11) Connez en quelque3 mots les louanges que vous 
pourriez adresser a votre sy3teme actuel 



III - VOTRE REVUE 



1) Quelle(s) rubriquels) souhalteriez-vous voir tral- 
tees davantage dans la revue ? 



2) Qi-elle(s) nouvelle(a) rubrique(s) souhaiteriez- 
vtus y trouver ? 



3) Le niveau general de TRACE vous senble-t-11 : 

□ - trop baa 

O - a sa bonne hautejr 

□ — trop technique 

□ - pas assez pedagogique 



1) Quelle(s) autre(s) princlpale(s ) critique(s) avez- 
vous a formuler 1 



5) Quel genre de programmes aimeriez-vous trouver 
plus souvent : 
□ - Educatifs 
D- Scientifiques 
D- Oe gestion 
D- Utilitaires 
Q- Jeux 



6) ReDonse facultative mais indispensable pour par- 
tiolper au tirage au sort (blen entendu, votre 
adresse ne fera l'objet d'aucune utilisation 
commerciale) : 



- Horn, Prenom 

- Adresse 

- Code Tostal 

- Pays 



Ville 
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34, rue de Turin, 75008 PARIS -Tel. 293. 
f*. - M&re : Uete. H-Laiartt: Place j&ftyi k Telex 6,14789 



3 PAR 



M»bd Araj-o. 75013 PARIS h Tel. 336.26 



m - Metro : 'iobelins (service correspondence el magasin 



SrueWlaiiriceBburdeti 75016 PARIS 524,23.16 

(pontde«rone«e) - Metro OiartcsMlcfte! - Bus TO/72 : Malson de I'OK it 




HORAIRES : du lundi au san>e 

de 9 heures a l u Ju sans interruption *Sauf PI3STM 



: Cet interface, se tranche (nrectement sur la ligne V i 
. sfene da voire imprimanle.el perm el la buXfarisaliutuile, 

Vol doilnoe*. Ceila veut dire que que.llc ; que soit 
itesse du printer (un nodem, plotter), apres quelques 

pejqondes votre ordinateur redeS'teodrji disponible, les; 

Jounces .1 1: ansmelirc 11 u.ml pluv dans v.. in- HAM 
mas dans la RAM du MiCrcrfazer, 




l'rol SI! est un .nam 1 mpi une .! <ju 

t as-'.: , UrpUS nt.liil I ] s. : s ayCC ssi III s ; 

epargne et serigraphic. n estdispoaible 
au pri* de647 F TTitetune fois monte. 

vous d.ilim- .iiccs a I. iiile la hihlk.llieqne 

de programmes du TRS 80*. 
Tous !es Domposams du :PROF 80: sbnt 
disponiblea chez PENTA 8. 13 ou 16.: 
litre indicant" le BASIC 12 K est ve du 



: 



: »'M k RAM (dont 16 k Shadow pour CP'm). 
. 12 K Basic: LMW 80". : 

• Interface dassrtW standard TRS ?0". 

• Interface parallele type HPSON. . 

• Interlace sene type! KS232Cst 29(rtA 
. Clavier AZERTY ou QWERTY. : 
i-Sortiei video et. LI HE tmudulalcrifioioj 





|fi!fte 



u 1 1 . < floppy 5" 
iCbmpBtible fRS : 

as «©■, 

OPTIONS : 

■ Carte graphique 8 Douleurs matritc 256 : 

Per|tel^;K;RAT«coMr6ieur a 366Efci . 45 

seu!). 

■• Carte CP/M 22i> F (CI soil). 

'■» Carle coujepr pertnet loules les fohclions graphique 

d'origine. mail, avec 16 couleurs (texte. etc.) sonic 

'Per.tci 370 p. 

• Doubleur de dinsile. Pdimel de (ravailler 

double densile :L^20 B xcotnplet: ci^liel. 




SE^¥K|fi:G0RRESPpNDANCE : Commandez par telephone 

Deniandez Catherine au 336.36.05 avant 16 h votre commande partira le jour meme* 




jr travaiUe sur le principe.des phoni 
Ty^dJFtipM'SMr vtifre clavier- ' j 
— BCpNJljlUR JK SU1 LB PR0F KATR VIN... 
— :Run... ct vousientehdezune voixisynthetique qui vousdit 






COMPLETMONT 



E TESTE 






ayec:disquette..., v . r i. 

CARTE C0ULEUR POUR 

atrice die 256 x. 512 <p 8 epuleurs sbrtfei PER1TBL 
el ii, mi 48 KKAM. M.i ni si- 1 1' sis e .iv.i ,! Sqtiette 







UN TRS 80 

Cei interface se monte en quelques minutes et vaus;permct de doubler; la capacite dc 
I ivos nbppys. C 'brtgine PERCOM. da dourjleurest livre : ave.c la disqueil 

II <—...... .,|J. llfeUriJ. : H M..II.'. 1. .lr U lkl a i...<«l1|. Mn^tlf. ll^lt^n'.,.;!., ai... 



jifcquc 
Itcteur et permetlo transfer! de tous|vos. programmes Simple densile. 
- ~ : ili.E|DCiUBI.ia:R 



:<f(manual»i. Une fois initalle le doublew vous pre 

iiir 







1397 FTTC 



TEHS rouVu^ 



)U-e in 



HUUHUN IHttlfU 

Voic 1'un des meillcurs moyens de faira des economies. Monte? voire interface 
eXIehsioni TRS 80* vous-meme.' Ehfre aOires, les canes MDX 2 et 3 ne sbni pas 
uniquemont des interfaces expansion * LOW COAST- . ce sont surtoutdes interfaces 
plus puissants,. pjus sooples tout en restant compatibles avec le materiel existant. 

MUX II. Interface ij'expansion pour "TRS 80 mod. 1 . Exjfraiion memoire !2 on 
48 K - Circuit d'alimeniation sut la carte avep projection cdntreles surtensiohs el 
cburti-circuits • Connectiuns:direetes MODEMiidO bds - Horioge temps reel - Inter- 



: graphiijue compacto ■ Imcr 
Jle en si an.la i . ! - 8(1 car /ligne - 
%) cai :\e - Impression en simple ou 
double largcur - Papier normal • Entraine- 
i :n I eu rs, aiu si ables - l(ilerfacesi 
PET, RS; 232. APPLE II dispo- 



-. : 



i 



face RS 232 C et 20 m A • Eroplaeemem EPROM disponible 27 16 hu 2732 - Inte 
PRINTER parallele - 2 interfaces cassette s^lecliun par Soft - Interface floppj's 
compatible JUEVEL II et perme«tant:Ij..0OS. New- D( S. OS 80. eti. [ m ±^ -- \ 



1 



i . 
py: et RAM e 



tdei3oar. 



te CI et les plans 

A titre indiicatif le prix moyen des composants pout flop 

MDX III. Interface floppy pour mod TIT. Interface floppy 5" double idensitc :'; 
Software compatible Level II et modele' 3 ' onnectlon directe pour MODEIvi__ 
~3iOt>iiS4l9 - Interface RS 232 ei"20 jnA flectriquemenl et mecaniquement compajtbie 
avec i'interface exSstani. 



-SO 



Pnx 







,;.;a... 



/ 



rpeiil par 

TRS ?°* 

nibles. 

GPIOO. PapierjIO" - 

Promotion 



2250F 

bnt des reglages d 








Pavernier. . .,_. _- 

;*;ll est possible dcmonterle%T'Pl sur un TRS I 



^Tavernieretsurun 



erleVfi I PI; 

mm 



'sur 






VERTISSEIVIENT : 

,es ilecteurs lie Uisque necessit 

ullage lies pieci^el. en eiMtsequence. sUpportenl;tr^s 
nial les transports. C'est pourquoi a partirjdu ISjanvier 
los lectcurs achetes chez Pentasonic seront testes de- 
VBntiyous au moment de votre ailhat et ce gratuitemem 
De. plus, pendant 45 jctirs ils pourrant etre revises 
riglis sur place tPenta 16) egalement graiuite>en» 
Lecleurh simple face, double densile 
hauteur normale ou demi-hauteur... 
Double fiicedouHe deo$M.....'..-.;-:.f; •:.■ 
Double face double densitc' 96 TPI Half 
Les nouveaux Half Size sontchez Pentasonic etvendus 
uu meme pris que leu ^ormaux. 
PriOfttO, TRS 80*'. etc 



TOUT SUR LA MICRO 
INFORMATIQUE 




du 14 au I8juin 1983 



L Exposition : 

du 14 au 18 juin 1983 

• mardi 1 4, mercredi 1 5, vendredi 1 7, de 9 h 30 a 1 8 h 
• nocturne le jeudi 16, de 9 h 30 a 22 h • samedi 18 de 9 h 30 a 17 h. 

To us les mareriels, toutes les applications des nicro- personnelle, venez evaluer les materiels, comparer leurs 
ordinateurs. Que votre motivation soit professionnelle ou coOts e- vous renseigner sur les applications disponibles. 

Nouveaute 83 : une animation « logiciel » 

(organisee par Sybex et Logiciels & Services). 

Une banque de donnees des logiCielS presentes par meilleurs logiciels pour rricro-ordinateurs. Les laureats pre- 

les exposants a MICRO-EXPO vous guidera, selon vos senteront leurs logiciels pendant route la curee de MICRO- 

besoins specifiques, 6 trovers I'exposition. EXPO iRenseignements ■. Logiciels & Se-vices, t6l. : (1) 

Un « grand COncours » destine 6 recompenser les 226.1 1.25). 

Et pendant toute la duree de I'exposition, une animation-jeux : venez affrontez I'ordinateur et peut-§tre... le battre. 

Le congres 

du 13 au 18 juin 1983 

Du debutant a I'expert, une occasion unique dans I'annee de se former et de s'informer. 



semlnaires professionnels 


Conferences Grand Public 


Les micro-ordinateurs : presentation, choix 


Choix d'un micro-ordinateur 


Les microprocesseurs 


Les micro-ordinateurs de poche 


Les langages : BASIC, PASCAL, APL 


Le traitement de texte 


les nouvfinux Inngage? • FORTH, LOGO, PROLOG, C 


L'enseignement assists per ordinateur - E.A O. 


La telemarique 


Les systemes d'exploifation pour micro-ordinateurs 1 6 bits 


Le traitemenf de texte 


Journees specialisees, avec demonstrations : 

— pour les professions juridiques, 

— pour la medecine, 

— pour 1 agriculture. 


L'enrreprise, son systdme d'information et I'informatique 


La comptabilite et ses logiciels 


Les bases de donnccs^ot leurs logiciels 


Journees des constructeurs : 

COMMODORE, GOUPIL, HEWLETT-PACKARD, 
TANDY, THOMSON, VICTOR LAMBDA 


La gestion et le Visicalc 


Le systeme d'expoitation MS-DOS 



^YBEX 



INFORMATION 



Norn : 

Adresse : 

Code postal : I I I I I I 
D entrees(s) a dem -tarif 



Vil 



□ Programme detaille du congres 
A, place Felix-Eboue - 75583 PARIS Cedex 12 - Tel. : (1) 347.30.20 - Telex : 21 1 801 F 
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8° congres-Exposition - micro-ordiimateurs 

Palais des Congres - CIP - Porte Maillot - Paris 



SYBEX organise par : 

SYBEX 4, place Felix-Eboue - 75583 PARIS - Tel. : (1) 347.30.20 - Telex : 211 801 F 




SIUEHE 



LIBRAIRIE 
POUR 
TRS-OTET 
VIDEO-GENIE 



MACHINE LANGUAGE DISK I/O f. 
OTHER MYSTERIES: 

Pour Module t et Module 3. Tout sur 
le controle des disquettes en langage 
machine. Lecture/ecriture d'une piste, 
d'un secteur, etc. Utilisation des routines 
des DOS. TRS DOS. NEWDOS. LDOS. 
268pages 346FTTC 

MANUEL DE L'EDITEUR 
ASSEMBLEUR PLUS DE 
MICROSOFT (en franpotal 

Manuel d'utilisation. en francais, de 
rEditeur-Assembleui Plus de Microsoft. 
Vous apprend a utiliser I'Ectiteur- 
Assembleur pour creer et mettre au point 
vous-meme des programmes en langages 
machine sur TRS-80 et Video Genie. 
72 pages en francais 98 F TTC 

LE MANUEL D'UTILISATION 
DU DOS: 

Conceme TRS DOS (Tandy) et New- 
Dos. Plus (Apparat) les commandes. 
les utilitaires, etc. 
90 pages en francais 96 F TTC 

TBS DOS 2.3 DECODED b --fr^l 

OTHER MYSTERIES 3^ " 

Tout sur le Systeme d'Exploitation de 
Disquettes TRS DOS 2.3 de Tandy. 
Dans cet ouviaga vuu& nuuverez tous 
les details sur le fonctionnement du 
DOS 2.3, ses utilitaires, 
ses principales routines, etc. 
Ouvrage tres preeieux pour ceux qui 
veulent aller plus loin que le simple 
Basic et surtout pour ceux qui 
programment en langage machine. 
Au sommaire : la gestion des fichiers, 
les utilitaires du DOS 2.3, les 
commandes. la structure du « directory »; 

etude detaillee de S V S 0. SYS 1 

SYS 6 et de BOOT/SYS (Avec le 

listing complet et commente de chacun 

de ces modules systeme). 

Etude detaillee de nombreuses routines 

pouvant etre appelees par vos 

programmes en langage machine. 

300 pages en anglais 336 F TTC 

TRS-80 DISK Cr OTHER MYSTERIES : 

Tout sur les disquettes du TRS-80 : 
architecture du directory, organisati6n 
des fichiers, comment recuperer des 
donnees ou des programmes sur 
disquette ablmee. etc. 
130 pages 210 F TTC 

MICROSOFT BASIC DECODED 
& OTHER MYSTERIES : 

Toutco los routines dc lo ROM ulilisables 
pour programmer en langage machine : 
adresse, contenu des registtes, etc. 
Organisation et deroulement d'un 
programme Basic, oil il commence, ou 
il stocke ses donnees, etc. 
310pages 296 F TTC 



TRS-80 ASSEMBLY LANGUAGE 
SUBROUTINES : 

Une collection de routines, simples a 
utiliser, pour votre TRS-80 (mod 1 et 
mod 3). ou votre Video-Genie. 
Chaque routine est expliquee de facon 
tres detaillee avec schemas de 
fonctionnement. Examples : 
Tri d'un vecteur. lecture/ecriture 
cassette, deplacement d'un point sur 
I'ecran, addition et soust'action, 
leclure/eciiture disqueue, liardcopy 
ecran. etc. 

En tout 65 routines utiles, puissantes 
et tres rapides. 
232pages 436FTTC 

BASIC FASTER AND BETTER 
& OTHER MYSTERIES : 

Enorme recueil de « trues » de 
programmation de haut niveau : 

stringpacking. line pockirg, etc. 

290 pages 296 FTTC 

THE CUSTROM TRS 
b OTHER MYSTERIES : 

Tout sur le hardware du TRS-80. 
Nombreux montages pour ameliorer 
votre TRS : haute resolution graphique, 
inversion video, majuscules/minuscules, 
comment faire de la musque, etc. 
TV) panes 346 F TTC 
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70 PROGRAMME BASIC TRS-80 
Iff III 

Ce livre est un recueil de 70 programmes, 
ecrits en BASIC pour les micro- 
ordinateurs a TRS-80 modele 1 level 2» 
et « TRS-80 models 3». Vous pouvez 
utiliser ce livre, que vous sechiez ou 
non ecrire des programmes en BASIC. 
Les auteurs y decrivent soigneusement 
chaque programme en dennant des 
exemples d'utilisation et le listing 
complet du programme. Quelques 
exemples de ces program-nec : valour 

future d'un investissement, valeur future 
d'une serie de depots reguliers, 
echeancier d'interets, laux de 
depreciation, remboursements reguliers 
sur un pret. solde restant du sur 
un pret, tableau d'amortissement d'un 
pret. facteurs premiers d'entiers, 
operations sur vecteurs, conversion de 
coordonnees. trace de courbes, 
d'interpolaliun, iuu&yidiion (plusieurs 
methodes decrites). derivation, racines de 
polynomes, programmaiicn lineaire, 
operations sur matrices, lois statistiques, 
regression lineaire, regression 
geometrique, tri, etc. 
198 pages en francais 86 F TTC 



TRS-80 GRAPHICS FOR 
MODEL 1 and MODEL 3<Byt. Book.): 
Tres bel ouvrage abondamment illustre 
sur legraphisme TRS-flO/SET et RESET, 
POKE, langage machine, etc. 
290p£ges T76FTTC 

TRS-80 ASSEMBLY LANGUAGE 

(Prantlce-Hall) : 

La programmation en langage machine 

sur TRS-80. 190 pages 146 FTTC 

THS-W Interlacing Booh 1 : 
Comment faire communiquer le TRS-80 
avec son environnement : convertisseur 
0/ A. etc. 190 pages 116FTTC 

TRS-80 Interfacing Book 2 : 

Encore d'autres circuits d'interface. 
2&0pages 116FTTC 
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LES MATERIELS : 



EXCEPTION N EL ! 



VIDEO-GENIE 

+ Montour Video vert 12 poucas 

lenserr-faic totdfcs iiuit compaoWc 
TRS-80 modee 1 . -9AAC 

3995 fttc 

interface dextensron 

aDEOOEME 

AVEC32KRAM 3500 FTTC 

DRIVE 

(Lecteur/enregistreur 

de cfequettesl 3800 FTTC 

IMPRIMANTE 
MICROUNE 80 

IMPRIMANTE S8KOSHA 
GPW0 ^22951 



Je deare recevoir le catalogue SIVEA 

P*tx*joa*> frafe de pon . ****».' Q ce ton 3 aroras a 1,80 F. 
ImatarieS. logicieb. pjx. Kies et revues) ! 

Nom 

Adresse 



TR3 



SIVEA - 31, Bid des Batignoles - 75008 Paris. 



TR3 BON DE COMMANDE 

Retourner a : SI VE A S.A. - 3 1 , Bd des Batignolles 75008 PARIS 



Nom 
Adresse 



Prenom 



Ville 

Code Poslol 

Pcys 



Bureau Dislribuleur 
Telephone 



Quanlile 


DESIGNATION 


PRIX UNIT 


PRIX TOTAL 


































MODE DE REGIEMENT 
Cheque bancoire joint D 
CCP |Oinl C 
Mandat leMre joint D 


TOTAL 






Participalion port et emballage 
Voir ousii ci-oessous + 220 F 


+ 30f 


ContreRemboursement + 30 F 
(France seulemerit) 




Etronger et DOM TOM + 30 F 




Cufide-RuiT 


bouiiemont □ 


TOTAL 





FRAIS DE PORT ET D'EMBAllAGE 

Ajouter 220 F pour louie 1 eommonde comportanl, pout tout ou parlte, des articles tell 
que unite centrale, floppy disk, impnmante, monileur video, papier pour impnmonle 
Transport par service express avec ossuronce comprise (Corse. DOM TOM. etranger. 
noji consultcr par telephone ou courrier en ce cat). 
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A I'ouest, du nouveau en micro-informatique 





Enfin, du nouveau a I'Ouest de la France. Avecl'arrivee 
de SIVEA a Nantes, vous allez pouvoir beneficier d'un 
service competent pour vous equiper en micro-informatique. 

Les toutes dernieres nouveaut£s du marche americain 
vous sont desormais accessibles, ainsi qu'une gamme excep- 
tionnelle de materiels, logiciels, livres et revues. Et,naturelle - 
ment, des conseillers avertis sont la pour vous accueillir et 
vous guider dans votre choix (Entree libre). 

LES MEMES PRODUITS 
ET LES MEMES SERVICES QUE SIVEA PARIS 

Tout ce qui a fait incontestable succes de SIVEA a 
Paris et a Lille est maintenant disponible pres de chez vous, 
a Nantes. Vous trouverez ainsi dans cette boutique deux 
secteurs distincts : 

UN SECTEUR INFORMATiQUE POUR L'ENTREPRISE 

Pour les entrepnses de toutes tailles, professions 
liberales, artisans, commercants, administrateurs... 

Quelle que soit I'application de la micro-inforrnatique 
que vous envisagez : comptabilite, gestion des stocks, 
factu ration, paye, traitement de textes, budgets, statistiques, 
gestion de fichiers, etc, des conseillers sont la pour etudier 
avec vous quelle sera la meilleure solution (materiels et 
logiciels) pouvant satisfaire pleinement vos besoins et entrant 
dans le cadre de vos contraintes budgetaires. 

Sur simple rendez-vous, il vous effectueront gratuit- 
ement les demonstrations necessaires et etabliront un devis. 

UN SECTEUR LOISIR INFORMATIQUE 
ou vous trouverez les produits destines a la micro- 
informatique domestique : 

• Des micro-ord nateurs ; APPLE, THOMSON, TEXAS, etc 

• Des logiciels de jeux : jeux de strategic wargames, 
simulations, aventures, echecs, dames, othello, Go, etc. 

• Des utilitaires et des langages pour programmer. 

• Des livres et des revues en francos et en anglais. 



Ettou jours, bien sur, les toutes dernieres nouveautes du 

marche americain aussi vite que dans les meilleures boutiques 

de Californie ! 

RENDEZVOUS CHEZ SIVEA NANTES DES LE 30 MARS 

Des Mercredi 30 Mars, SIVEA Nantes est a votre disposition 

du Mardi au Samedi, sans interruption de 9 h 30 a 18 h 30 

etleLundide13h30a18h30. 




21 A, B d G. Guist'hau 44013 NANTES 
T«. : (40) 47 5309_ -r^T^ 
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PROGRAMMEZ EN BASIC SUR 
TRS-80 Leopold LAUREMT 

Torre 1 - Ref. : 250 - 1 96 pages - Prix : 80 F TTC 
Tome 2 - Ref. = 251 - 304 pages - Prix : 89 F TTC 

PROGRAMMEZ EN BASIC SUR 

VIC 20 GOnler O. HAMANN 

Tome I - Ref. : 244 - 208 pages - Prix : 80 F TTC 
Tome 2 - Ref. : 245 - 208 pages - Prix : 80 F TTC 

Ces ouvrages, en deux tomes, ont ete corpus 
pour vous permettre d'apprendre rapidement 
6 programmer en BASIC un micro-ordinateur 
particulier. 

D6couvrez le fonctionnenenf de vofre micro- 
ordinateur 6 I'aide de programmes tres simples 
et abordez l'6tude d une nouvelle notion en 
proc6dont 6 la modification d'un programme 
d6\b connu. 

L'ouvrag* sur I* TRS-80 pr6sente de 
nombreux programmes d'applicarion : factura- 

tion, gestion de stocks, paye, gestion de fichier, 

histogrammes, traitement de texte. 



Rappel : 

INTRODUCTION AU BASIC 

Pierre LE BEUX 

335 pages - Ref. = 216 - Prix , 108 F TTC 

LE BASIC PAR LA PRATIQUE 

Jean-Pierre LAMOITIER 

246 pages - Ref. i 231 - Prix : 108 F TTC 

JEUX D'ORDINATEUR EN BASIC 

David H. AHL 

1 72 pages - Ref. ■. 246 - Prix : 89 F TTC 

NOUVEAUX JEUX 
D'ORDINATEUR EN BASIC 

David H. AHL 

1 86 pages - Ref. : 247 - Prix : 89 F TTC 



SVB€X : 80 titres sur la micro-informatique 




Nom • 



Adresse : 



TRACE 83 



Ville 1 



Code Postal : I I I I 1 

Je d6sire recevoir : D votre catalogue d6taill6 (gratuit) 

D les livres suivants i ex. r6f. , ex. ref. 



, ex. r6f. 

2,50 F - 2 a 4 : 21 F - 4 a 8 : 25 F. 



, ex. rel. 



Ci-joint mon reglement plus frais d'envoi : 1 livi 

4, place Felix-Ebou<§ - 75583 PARIS Cedex 12 -Tel. : (1) 347.30.20 - Telex : 211 801 F 
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Le modele 3 a du mal a se "convertlr". . . 

- Je vous signale que sur les modeles 3 recents "AZE- 
RTY" ou "europeens", les programmes CONVERT et XFER- 
SYS ne sont plus fournis avec le TRSDOS. Le construc- 
teur , dans 1* addendum du manuel precise : "11 n'est 
pas CERTAIN qu'un programme qui peut etre execute sur 
les modeles 1 ou 3 version amerlcaine soit executable 
sur modele 3 europeen..." Ceci semble rendre impossi- 
ble 1' exploitation des nombreux programmes realises 
sur modele 1 (dont les disquettes TRACE) et risque 
de toucher un nombre croissant de lecteurs. Est-ce 
que le transfert de CONVERT d'un TRS80 americain re- 
3oudrait le probleme ? (Ph. Gail lard, Tours) 

* II noua est difficile de repondre a cette ques- 
tion tant que nous n'avons pas "mis la main" sur 
l'un de ces nouveaux modeles, mais cette reponse 
devrait pouvoir vous etre fournie par le magasin 
oil vous avez achete votre ordinateur. Pour notre 
part, nous pensons que ce materiel etant tres 
recent, vous avez recu une disquette provisoire 
ne possedant pa3 encore (pour une raison obscu- 
re) ces deux utilitaires. Nous refusons en effet 
de croire que Tandy Europe/Matra coupe ainsi le 
maltre pont qui relie le modele 3 a l'enorme bi- 
bliotheque de logiciels existants sur le modele 
1. En attendant, nous vous conseillons d'insis- 
ter aupre3 du constructeur afin que ces program- 
mes legitimes vous soient fournis. 



Recherche utilitaire de recherche... 



- Differents logiciel 
BASIC fonctionnent tr 
mais ne veulent rlen 
la cause de ces insuc 
ferenees entre les ad 
dans TRACE n° 3, page 
flra de modifier avec 
Je pense done exprime 
vous suggerant de pub 
( ! ) dans un prochain 



s tels que BASCOM et Infinite 
es bien sur modele 1 sous TRSDOS 
savoir sur modele 3- Peut-etre 
ces reside-t-elle dans les dif- 
resses pilotes que vous signalez 

22 et, je cite, "qu'il vous suf- 
un utilitaire de recherche"... 
r un souhait assez repandu en 
lier cet utilitaire si simple 
numero. (Paul Bodden, Liege) 



* D'abord, nous n'avons Jamais dit que cet utili- 
taire etalt simple... mais il fait ordinairement 



partie (il en existe differentes versions) de la 
panoplie du "bricoleur" de logiciels auquels s'a- 
dressent certaines rubriques de ce journal. De me- 
me que pour les montages pratiques que nous publions 
il est necessaire d' avoir un fer a souder, des sche- 
mas, etc... pour falre un "patch", il est consellle 
de posseder un certain nombre d'outils logiciels 
tel3 que moniteur, desassembleur, patcheur... avec 
lesquels la recherche en memoire ou sur disque se 
reduit a un jeu d'enfant ! Ceci dlt, nous ne pen- 
sons pas que la solution a vos problemes actuels 
soit dans les adresses de pilotes. II s'agit d'un 
probleme plus general lie au manque de compatibili- 
ty entre le TRSDOS du modele 1 et celui du modele 
3. D'autres systemes d' exploitation tels que LDOS 
ou NEWDOS-80 off rent une compatibilite plu3 etroi- 
te entre les deux modeles et leurs concepteurs pu- 
bllent regulierement les amenagements necessaires 
en vue d' assurer une compatibilite encore plus gran- 
de. 



II y a comme un defaut... 



- L' utilitaire "super driver" paru dans le numero 1 
TRACE a le defaut suivant : lorsque l'on parametre 
par exemple pour un format de 66 lignes par page 
(soit : PARAL L=66,PAGE=1 ) , le compteur de ligne ne 
tient pas compte de la ligne oil est imprlme le mot 
"page", ce qui fait un total effectif de 67 lignes. 
Deux solutions : la premiere consiste a parametrer 
une ligne de moins (LIGNE=65) ; la seconde d'ajouter 
l'lnstruction "INC (IXtl)" en ligne 2305. Depuis, je 
ne peux plus me passer de PARAL ! (Dominique Frangois, 
Toulouse) 

* Cela resoud peut-etre votre probleme mais ce 
n'est pas la vraie solution ! II n'est pas ne- 
cessaire d'effectuer cette modification, le comp- 
teur ligne etant normalement mis a jour a la fin 
du message "PAGE xx" par le pilote standard du 
TRS situe en memoire morte (adresse 5C1H) sur 
detection du code ODH (retour chariot). Par con- 
tre, il est probable que votre imprlmante ne ne- 
cessite pas de code OAH apres ODH et il faut done 
le supprimer du message afin qu'il ne provoque 
pas un saut de ligne supplementaire en reraplacant 
la ligne 1790 du programme source par "DEFW 0D2 
OH" ou la ligne 2260 par "LD B,8". 



Un materiel en francais S.V.P. 

- Pourriez-vous m' indiquer qui pourrait me fournir un 
manuel en francais concernant 1' imprlmante Line Prin- 
ter VIII (reference catalogue Tandy 26.1168). J'ai 
bien ce manuel eh anglais mais ne connaissant pas cet- 
te langue, e'est pour moi un gros handicap. (Antoine 
Muyor, Vitrolles) 

* Au fait, une certaine loi n'obllgeralt-elle pas 
les constructeurs a fournir une documentation 
francaise ? En attendant, si un lecteur peut ai- 
der Antoine Muyor, qu'il nous le fasse savoir. 



Des programmes plus longs ? 



- Pourquoi dans vos numeros, ne donnez-vous pas des 
programmes plus longs... J'espere que vous y remedle- 
rez au plus tot. (Robert Serge, Bruxelles) 

* Nous esperons que le programme "roulette" de 
Frederic Mora paru dans notre numero 1 a repon- 
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• 132: COLONNES 

EN OPTION POSSIBILITY DE CARACTERES "APL" 



• LARGEUR PAPIER REGLABLE 

• JEU DE 96 CARACTERES DROITS ET ITALIQUES 

• EQUIPEE DES OPTIONS :- BUFFER DE CARACTERES 

- IMPRIMANTE SUR PIETEMENT 
ACCENTUES, SEMI-GRAPHIQUES, MATHEMATIQUES, connection • cctbt* pour trs-bo , 

INDICES. KIT INSTALLE : 320 f 



VIDEO GENIE munis de 1' interface d'ext«m» ion I 250 F 
«• I ' interface d'extenmion : 320 F 



EXEMPLE : 



1 23< S a?89£H&£\i&i ?.?, < 5«7 8»0*t*<-">.f I 



...I I l«f IF. 



■J 



, J. 



-* I _| |. s v-'LX/n*-*! ^X0* |?ti !«'f'»a@Tau''ae'idiJftc**rj"#t» , kaJ»6i;S , 8o)fti»S 



SERVICE RE F" FC I S E c: ' es t auss i . .. 

LES MEILXEURS PRIX SUR le Materiel NEUF 



.MICRO O R T_« X M #2. 1 E I. J R S£ 



DOUBLEUR de DENSITE 



ir--ii».:.iiii..MK: ic-ii 



I -" E R X I HE FT I CI I » E 



LOOXnj E'l 



ASSURE 180 Koctets par drive 
1 soul dr i ve suf f i t 

^^SF 

Occmion* rtcvntM ■ 

TW8-eO Modele* I d« 32 330O F 

intcrfactt d* (extension * dnv«i 



au standard nroatvn CCITT 
accti a Tran«»oc • Mtcrodtal .etc. 
P ar—t a 1*1 Mlcroardlnataur d« c ommup I out 
direct — l it •or telephone avte un autre micro 
Full duo lex ■ connection direct* . 3QO baud* 
vtrilan non h« 



->^. 



J090F 



f=-ASC*^l_ QO da NCS 

rtodele I et III » 1 DRIVE 
c'est GENIAL ! 

Documentation » support do cotjrs 
en FRANCAIS incluss 

... 990F 



>^. 



KIT'S 



Po-» TR8-S0 .-xi.il. t 

Cart* D *.-(.". ir, n MDX-2 
C.I. * Plan* i 398 F 

Pour TRS-QO modal* III 

Carle D'extension MDX-6 
asMablo* . TESTE 1143 F 

KIT coM*>let «■ dnvt 2193 F 



o h .:: u v r 



Drive TEAC 3 kuch p 40 PISTES 

•IMPVX FACE > MULE DEMITE 

Drive nu 1660F 

avec M.IH et S0ITICR... 2310F 
DRIVE S ''.Okie den... SO PISTES 

Drive nu 23*0 F 



COMP-OSAMTS 



ZB0A +0 F 

BR1941 99 f 

HC14412 149 F 

WD1771 199 F 

UD1791 249 F 

UD1793 249 F 



2716 25 F 

74LS244 .8 F 

QUARTZ 4nhl.l9 F 
IMfn.19 F 
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CLAVIERS EFFET MAIL 

voitur wuvt 14300 F HT.LIvr* rtl CDFFRET. 

64 looxhti * 10 touch-**, rortctiona i 200 F 

•ott 3 F la touch* o *rf*l Hall III 

AL1M a Uolt* 4M» i«tt-uv 

dan* Rath 19 >ouc** _ . . -200 F 



TRS-80 Modal e 1 ET Models III son*, dot, naraucs daoasaos da TANDY RADIO SHACK 
VIDEO GENIE SYSTEME est una marque daposae de EACA 

Extru i I dv noi CONDITIONS DE VENTE ■ 

PrlK HT au 10 naveiwbra 82 au depart do Nantes. 

r.U.A. 18.6 X sur tout le watcrr f el . 

Materiel disoonlble dans la linita das stocks. 
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Sepcifier le type d'ordinateurs 



Pays 




Ouantite 


Designation 


P.U.H.T. 


Monlant HT. 




Imprimante Reconditionnee 


2450 






Imprimante en I'etat 


1200 






Cable de liaison 


250 






Autres 






















TOTAL HT 




PORT et EMBALLAGE : Les 
Marchandises au-dessus de 5kg 


TVA 18,6% 
TOTAL TTC 


F TTC 


voyagent 


en Port du 


Ci |omi rSgl par ch»que O 


Mandal Q 



du a vos souhaits. Neanmoins et dans la mesure 
du possible, nous evltons de publier de longs 
programmes pour dlverses ralsons : d'abord, nous 
essayons de varler les sujets le plus possible 
a fin de toucher le maximum de lecteurs de facon 
a ce que chacun puisse y trouver au molns un su- 
Jet qui l'interesse. Publier de longs programmes 
redult grandement le choix den sujets ; de plus, 
il ne serait pas sage de chercher a redulre da- 
vantage les listes, surtout si l'on veut conser- 
ver la lisibilite aotuelle ; enfin, nous ne pou- 
vons publier que les programmes que nous rece- 
vons et il se trouve que la majorite d'entre eux 
ne sont pas particuliereraent longs ! 



Son sur Video-Genie 



- La documentation du Genie 1 se vante de 1' existence 
d'un haut-parieur mals ne dit rien sur la programma- 
tion permettant d'en faire sortir des sons ; pourriez- 
vous publier un article a ce sujet ? (Jean-Marie Pic, 
Ermont ) 

- Mon modele de VGS ne possede pas le son. Sur quelles 
broches du connecteur DIN (sortie 2eme cassette) faut- 
11 brancher l'amplificateur exterieur, et surtout : 
comment obtenlr des sons ? (Philippe Juhel, Le Havre) 

* Lea commandes sonores utilsees par le Video Genie 
sont identiques a celle3 du TRS modele 1 (OUT 
'255, X" avec X pouvant prendre les valeur a 3) 
sauf que la sortie du magnetophone integre (uti- 
lisee egalement pour le son sur les modeles re- 
cents) doit etre prealablement selectionnee par 
un OUT 25'-,0 (OUT 254,1 selectionne la sortie de 



la seconde cassette, utilisable aussi pour un 
amplificateur exterieur). Pour produire des sons, 
vous pouvez essayer le genera teur d'effets sono- 
res decrit dans TRACE numero 4, page 17. Concer- 
nant le brochage de la prise DIN, il est egale- 
ment compatible avec celui du TRS modele 1 (vue 
exterieure, broches orientees vers le bas) : 
points extremes fl et 31 = contacts de commande 
moteur du magnetophone ; point central bas (2) = 
masse ; point de gauche (5) = sortie son ou cas- 
sette ; point de droite (I) = entree. 



Et le TRS couleur ? 



- Je m'etonne de l'absence de toute information con- 
cernant le TRS couleur. Est-il possible de lul consa- 
crer une rubrique comme pour le poquette ? (Alexandre 
Maggioni, Lausanne) 

* Pourquoi pas, apres tout ? Le malheur, c'est que 

nous recevons des articles sur le poquette raais 
aucun a ce jour sur le TRS couleur ! Cette situa- 
tion ne vas probablement pas durer, nous l'espe- 
rons . . . 



Ca ne marche pas...! 

- J'ai un modele recent de TRS et Je vous fals savolr 
que le programme VBRCS du numero 2 de TRACE ne fonc- 
tiorme pas correctement (Christophe Wolfhugel, Hoerdtl 

* Bien que vous soyez le seul et unique lecteur a 



VISICALC, VISICALC.. 

Avec le modele Visicalc, vous pouvez creer sur votre P.S.I. 
(Petit Systeme Individuel) un tableau comportant des titres, 
des valeurs et des formules. Des que vous changez une 
des valeurs numeriques, tout le tableau se met a jour en 
fonction des formules. Cet ouvrage vous guide pas a pas 
dans I'utilisation du Visicalc, a I'aide d'exemples pro- 
gressifs. De nombreux cas d'application sont presentes 
dans la seconde partie, au rythme d'un chapitre par cas : 
echeancier de remboursement, feuille d'impot, gestion 
de copropriete, paye, facturation, tableau de bord... 
Chaque exemple sert a introduire de nouvelles ins- 
tructions ou astuces d'utilisation. 

176 pages - 82,00 FF / 635,00 FB 





P.S.I DIFFUSION 

41-51, rue Jacquard 

BP 86 - T7402 Lagny-s Marne Cedex 

FRANCE 

Telephone (6) 007.59 31 

P.S.I BENELUX 

5, avenue de la Ferme Rose 

1180 Bri .dies 

BELGIQUE 

Telephone (2) 345.08 50 



Envoyer cebon 

accompagne 

de voire reglemenl a 

PS I DIFFUSION 

ou. pour la Belgique el 

le Luxembourg, a 

PS I BENELUX 
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<^> nOBiCIELS P r^i 



PROGRAMME 

PRDFESSIDNNEL 

POUR 




#Logiciel et rnanuel francais 
#Facile d'emploi pour debutant 
^Saisie aidee par lordinateur 

GENIUS 

Comptabilite generale 1 000 comptes, 4000 Ven- 
tures. Centralisation automatique et immediate. 
Pas de tri. GENIUS vous apporte : Balance para- 
metrable, Compte d'exploitation generate, pertes et 
profits et BILAN a n'importe quel moment de la 
journee. GENIUS realise seul les operations de fin 
d'exercice. 
Rapport qualiteVprix inegale - Le Leader. 

Mod. 1 et 3 : 2350 F - Mod. 2 : 2850 F 

IMVEIMTER 

Excellente gestion des stocks pour 1 500 a 5000 
articles. INVENTER e'est une facturation temps reel 
plus gestion des commandes fournisseurs, statis- 
tiques en valeur, en unites, en remises, et inventaire... 

Mod. 1 et 3 : 1500 F - Mod. 2 : 1800 F 

En version etendue a la tenue des comptes clients 
avec journal des ventes, selection sur solvability 
des comptes, liste fichiers client : 

Mod. 1 et 3 : 2500 F - Mod. 2 : 3100 F 



• GESTCO gere un compie bancaiie personnel, lisle ei irie les mouvemems 

Mod. 1 et 3 : 320 F 

• GRAF iransforme voire Lineprinter VI en table a dessin de 65536 points 

Mod. 1 et 3 : 330 F 

• UTILDIR catalogue a noire place le contend de HII disquettes 

Mod. 1 : 320 F 

• ZLIST lists les programmes BASIC de lagon sirucluree 

Mod. 1 : 210 F 



■>* 



IQGiCiELS P ri 



M.H. POSSARD — T«l (56I 67 29 61 
TA8ANAC 336SO LANGOIRAN 



Je commande 

Ci-joint mon rdglement de F 

NOM : 

ADRESSE : 

CODE ET VILLE : 

Tel. et profession 

Ajouter 26 F pour le port ou 3 timbros si demande de documentation 




12 k RAM dans 



Cette augmenta:ion de memoire 
permet a ce pocket des program- 
mes plus muscles. 
Entierement compatible avec 
I'imprimante et I'interface K 7. 
Extension integree dans le boitier. 
Modif. physique par nos soins 
exclusivement. 

Garantie 1 an. Reprise des 
garanties en cours. 



DETAILS COMPLEMENTAIRES 
APPORTES PAR LA MODIF. 

" possibilites fichiers nettement amelior6es, 
overlays plus importants. 

* traitements optimises beaucoup plus 
rapides 

* utilisation possible de 2 magnetophones 
simultanes sans modification comple- 
mentaire. 

" alimentation : piles / secteur / accus ou 

batterie auto. 
" affichage et impression programmable 

(reglage du contrastel. 

* manuel d'utilisation en francais, largement 
documente. 

* systemes d'entr^es/sorties universels : 
connection vid6o. modem, carte secteur 
et mini synthetiseur 

* retour de votre PC 1211 en Rec par 
nos soins. 



>4 



Faites parvenir votre PC 1211 seul. avec votre reglement 
de 1 500 F TTC en cheque (pas d'envoi conire remboursementl a 




BOUi 



faoft 



NTERFACES i 



N° PC 
NOM 



9, rue de Lalande 

33000 BORDEAUX Tel. I56I 91.55.08 



Joindra cart* da 

visit* / adrwssv 



nous falre cette reclamation... nous sommes prets 
a envlsager le Fait qu'il puisse y avoir une in- 
compatibilite avec les TRS recents (ce dont les 
lectftur'9 et possesseurs de ces modelea ne tarde- 
ront pas a nous Informer si tel est le cas) . 
Mais qu'Bst-ce qui ne fonotionne pas exacteraent 
?? 



et ca n'existe pas 



- Je dols vous signaler que le programme "generateur 
d'effets sonores" du numero 1 ne tourne pas. En effet, 

a la llgne 25070, les Instructions DEFUSR et CMD"T" 

n'exiatent pas en TRS niveau 2 (C. Laplagne, fiouen) 

* Soit, 11 est vrai que ces instructions n'exia- 
tent pas en niveau 2 mais le programme est Jus- 
tement concu de telle sorte qu'il puisse Fonc- 
tlonner en niveau 2 comroe en BASIC disqiw et si 
si vous etes efFecti vement en niveau 2, r.'ayez 
aucune cralnte : ces deux instructions ne serunt 
pas executees (ou bien, c'est que votre tysteme 
fait un complexe de superiority) ! 



APL-80 sur mcdfele 3 



- Dans le trues a brae du num?ro 3 sous le titre 
"Question de pilotage", il fa.it completer les modi- 
Flcatlons par celle-ci : remplacer "8D05" par "C203" 
dans le bloc de commande du driver Iraprimante (adres- 
se3 U026 et "1027). Moyennant quoi, il est possible de 
recuperer 1' APL-80 du raodele 1 (cF article de Claude 
Nowakowskl dans TRACE numero 3) et de le Faire fonc- 
tlonner siir rr.odele 3. Et cela marohe parfai tement. ! 
(Louis Martir., Modane) 

* Mercl pour ce complement d ' inFormation qui sera 
surement tres utile aux posse33eurs de raodele 5. 



Mlni-assembleur ? 



- P03sedant la version 1.0 (1981) de EDTASM pour mo- 
dele 1, J'ai eu la desagreable surprise de ne pouvoir 
sauvegarder aur cassette des programmes sources 3upe- 
rieurs a 2K octets (ordre W). Dans le cas ou le pro- 
gramme depasse les 2048 octets Fatidiques, seuls les 
deux premiers K sont sauvegardes. Tandy Belgique etant 

reate muet a ma lettre de reclamation, si des lecteurs 



se sont heurte3 a ce meme probleme et l'ont reaolu, 
qu'ils me le Fassent savolr par le Journal. Merci 
d'avance. (R. Eicr.aker, Rosny/Bois) 

* Ouelqu'un a t-il deja rencontre ce probleme (ou 
bien n'y a t-il que R. Eichaker qui ait ecrit 
des programmes sources de plu3 de 2V. octets...!) 
Merci de nous tenir lnforme de vos experiences 
pn c.f* dnmaine. 



Des f leurs. . . 



- Pour ma part, le retard de la parution s'efface de- 
van t le plaisir renouvele a chaque page de pouvoir 
raleux utiliser mor. TRS (Jean-Marie Laurent, Eloyes). 

* Voila qui nous va droit au coeur, mais nous ne 
voyons pas de quel retard vou3 voulez parler...?! 



Adaptation 

- Voici une petite modification du programme "amelio- 
rez. vos traces de courbes" paru dans le numero 4 de 
TRACE, destine a ceux qui ne posaedent pas d'impri- 
mante graphique (Jean-Marie, Eloyes) 

* Merci pour ce complement d' information. Nous re- 

mercions aussi Monsieur Rene Le Gallic qua nous 
a transmis un programme visant le meme but. 



520 ' 

530 FOR 1=0 TO 1<. : FOR J=0 TO 63 

540 IF PEEK'15360H»6'.*J'>ir9 THEN LPR1NT "»": ELSE 
LPRINT CHRt<PEEK< 15360+ I »64* J ' >; 



II Taut "zaper" EDIT. . . 

- Je viens d'acne-er FORTRAN pour Le mode. I e 1, or 
l'editeur ne marche ni sous NEWDOS 4U, nl sous NEWDOS 
80. Y a-t-il des modifications a apporter ? (M. Slove, 
Le Vesinet) 

* Apparat propose effectivement un "zap" qui de- 
vrait regler ce probleme cl que nous i-eportona 
ci-dessous : 



E?1T 'CND>32>A2 

SHU : ?S lb 7F C2 28 72 '£ ZZ 

dtvient : 78 D4 01 30 OS 18 04 EE 

EDIT/CMC. 32-E8 

e(3Jt : 'E Ea 7F *E 2t TE FF C« 58 "8 EE 80 f DA 5D 78 

■J-".efit : >l 60 6* 06 01 30 01 •>(• 2? 0' 70 01 23 IS 0-. '8 




m 



TRS-80 



EDIT 



• Editeur Ph)in Ecran 

• Pout eenre lacilemcnt vos programmes 8ASIC 

• Les fonctionnaliies du traitement de texte adap 
tees a I edition de programmes 

• EDIT sur disquette inclus une version DOS overlay 
rVutHisant que 160 octets (sous TRSDOS. LDOS. 
Smal-LDOS) 

EDIT Idisquel 299 F TTC 

EDfT(K7. I6KL2) 230 F TTC 



r 



Smal-LDOS 



r 



n 



QAVIIH 



DRIKS 
"normm" 



MfflWANTI 



DRIVES 

double lace/ 

35 ■ BO pistes 

• Pour disposer dun sysieme d'jxplouanon puis- 
sant et sophisttque mais simple a utthser 

• Regroupe les commandes les plus interessantes 
du LDOS (Manuel en anglais) 

EXCEPTIONAL 750 F TTC 



VENTE PAR CORRESPONDANCE 
EXCLUSIVEMENT 
Repondeur 531.49.26 

Poil " a outez 20 F i30 F ix>iir I eirangor 40 F si 

onui imboursemantl a vone commande 
3 iix modifiables Catalogue gratuit 
19. bd Montmartre 75002 PARIS 

GENERAL SOFTWARE 



GENERAL 
SOFTWARE 



FOR A = 1 10 1 5 

PRINT C 

IF I = 5 GOTO 2B 



ID A.IIY + 3) 

ACCEL 3/4> p»sh hl 



INC E 



• Compilaieui BASIC el DISK BASIC 

• Execution de vos programmes jusqu'a 35 fas 
plus rdUKle 

• ACCEL 4 esi une veiston dACCEL 3 utilisant 
r overlay aim de n'occuper que 160 octets do la 
memoire disponible (ne fonctionne que sous 
TRSDOS. LDOS et Smal-LDOS) 

• La disquette ACCEL 3/4 mclus egalement AC- 
CEL 3 qui est compatible tous DOS. 

ACCEL 3/4 Idisquel 690 F TTC 

ACCEL 3 (K7. 16K L2) 650 F TTC 
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Bricolons un peu ! 



- Au sujet des modifications que vous proposes de 
faire sur le TRS-80, fer a souder en main, ne pour- 
riez-vous iea adapter aux derniers modeies fabriques 
au Japon ? Sur ceux-ci , la disposition des elements 
est dirferente. . . (Jean-Marc Duro. Sierck-les-Bains ) 

* Bien que nous ne soyons pa3 en possession des 
scheraas de ces nouveaux modeies, 11 faut toutefois 
comprendre une chose : nous ne pouvons paa publier 
( faute de place et de temps) les adaptations possi- 



bles sur lea differentes versions de TRS modele 1 
(11 y en a malntenant au moins quatre), sans comp- 
ter le Video-Genie, le LNW et le PROF-80. Nous de- 
vons nous contenter de donner un schema de princl- 
pe mis au point sur un modele donne, en laissant au 
lecteur le soin de faire lui-meme les adaptations 
necessaires sur son materiel. Nous devons auasi sou- 
ligner que les "hHcrtlages" que nous publions s'a- 
dreasent aux "bricoleurs" ayant quelques connais- 
sances en electronique et sachant iraproviser en cas 
de besoln. Cela sous-entend qu'ils doivent etre en 
possession dea schemas de leur materiel s'ils ne 
veulent pas s'exposer a certains nsques ! 



errata 



Dans 1' article ''Les graphiques du TRS" (partie 2) de 
Frederic Mora, en page 11 du numero 4 de TRACE, une 
routine assembleur a ete legerement amputee (colonne 



de droite) 


. . Nous 


prions 1 


de nous 


^r. 


excuser 


. Void c 


200 


RESECR 


EXX 




210 






EX 


AF.AF' 


220 






1:H 


DE, 15360 


230 






LD 


HL,i174j 


210 






LD 


BC, 102U 


250 






LDIR 




260 






EXX 




270 






EX 


AF.AF' 


280 






RET 





M.E.B. MODULE D' ETUDES El DE REALISATIONS 

-xxxxxx* n^gjg pjDOUI 

IN/IE R B.P. n' 2 

kxxxxxx^ 564 70 St PHILIBERT 

Pour TRS 80 Modele I t 

Generateur APL compatible AJL 80 200 

Generateur Modele 3 300 

Generateur arinuaculea accentueea pour 

Scripsit tree patch rar disque 350 

Siparateur de Donn£ea simple densite 
fiabilise conaide>able«ent les entrees- 
sorties disque 2 ^0 

Pour TRS 80 Uodele 3 i 

Mod 3 azertyj Generateur minuscules 

accentueea pour Scripsit arec patches 

rar diaque 30 ° 

Mod 3 qwertyt G6nerateur minuscules 

accentuees pour SuperScripait avec 

patches sur disque ^^ 

Pour l'Enaeigneaent et lea Clubs : 
Bepartiteur Parallele connecte juaqu'a, 
4 moon aur une iapristante parallele 
selection logicielle a partir du BASIC 

ou Langage ma. chine . . v 1 ^00 

(cables en sua) 

N0TA Lea generateura pour module 1 et le 
separateur de donnees ne cess i tent aoudure 
et coupurea de piate (aui-vant mole les) 

TRS 80 EST une Marque Depoaee par TANDY corp 

Prix Hora TVA Regleaent a la cossaande 

M.S. A. MODULE D' ETUDES ET DE REALISATIONS 



Page 43 du meme article, la ligne 40 du programme BA- 
SIC doit se lire : FOR 1=0 TO 35 (au lieu de 37>. 
Quant a la ligne 80 (colonne de droite), la valeur 
Al est : Al = A-256*A0 (au lieu de A1 = A=256*AO). 



Du mime auteur (mais non, nous ne luL en voulons pas 
!) et dans le meme numero, la routine de conversion 
hexa/decl'de "Cote court" a ete omise. Reportez-vous 
a la rubrlque du present numero pour un complement 
d' information (si vous ne la trouvez pas, c'est qu'll 
s'agit surement d'un nouvel oubli...). 



Les "Patches and Zaps" du numero 1 (sauf en ce qui 
concerne le compilateur BASIC) nous ont ete communi- 
ques par Roger Buvat. 



Une correction nous est transmise par ]' auteur du 
programme "trace de courbes" du numero 1 (page 32) 
pour ameliorer la presentation de l'echelle vertica- 
le. En ligne 330, renplacer "8-LEN(Y$)" par "9-LEN 
(V$)". 



Roger Buvat, auteur du programme de ;rl paru dans le 
numero 3 nous slgnale un probleme ln^ervenant lors 
du tri d'elements de longueurs lnegales. Volcl les 
corrections a apporter : 

- Dsns le programme en assembleur, supprimer les 11- 
gnes 800 a 830 et 910. Remplacer la ligne 920 par : 

JR NZ.TEST ; Si E$(J+H)<> E$(J) 
les lignes suivantes : 



00920 

Inserer 

00921 

00922 

00951 



" si longueur variable 
" si longueur variable 
* si longueur variable 
ou CCF si -,rl Inverse 



DEC C 

JR Z.TEST 

SCF 

00952 TEST NOP 

00953 JR NC.PERMUT 

- Dans le programme BASIC, remplacer les lignes 1150 
et 1160 par les suivantes : 

1150 DATA 253,78,0, 197, £13, 229, 26, 190,32,8, 13,40,5: '03 
1160 DATA 19,35,16,245,55,0,48,20,217,225,225,225: '2D 

Pour inverser le sens du tri, remplacer la datum 
de la ligne 1160 par 63- 
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La societe Graphie a depose son bilan. Cette nouvelle 
est triste pour deux raisons prinoipales : oette so- 
ciete, qui avait pris naissance a un moment ou les 
utilisateurs da TRS avaient Justement besoin de sup- 
ports, de conseils, d' informations et de materiels 
que i ' on ne trouvait alors qu'aux USA, avait apporte 
par* sa presence un service reel et apprecie de tous. 
Ce service leur est retire aujourd'hui et cela.c'est 
toujours triste. La seconde tristesse, c'est que de 
nombreux utilisateurs ayant place toute leur confian- 
ce dans cette societe, n'ont pas hesite a passer com- 
mande de materials dont lis n'etaient meme pas surs 
de l'existence ou de la dispon-bi lite. Quelques Jours 
meme avant la "fermeture des portes" , GRAPHIE conti- 
nuait toujours a accepter des commandes... Aujcurd' 
hui, et apres de nombreuses et vaines reclamations, 
les clients ne peuvent obtenir le remboursement des 
somes versees et ne doivent malheureusement ccnser- 
ver que peu d'espoir de l'obtenir un jour. De nom- 
breux lecteurs dan3 ce cas nous ont ecrit pour nous 
faire part de leurs malheurs e; nous demander consell. 
Nous ne pouvons que leur re commander pour le principe 
de deposer une plainte contre cette societe, tout en 
regrettant que de tels incidents atteignent durement 
l'enseuible de la corporation : clients, fourni^seurs, 
etc. . . 



GRETA SUD-LOIRE organise des sages de formation con- 
tinue en micro-1 nformatique portant sur les themes 
sulvants : sensibilisation a 1' inf'ormatique (21 h), 
initiation au languge BASIC (18 h), perf ectionr.emont 

en BASIC (18 h) . Les inscriptions peuvent se faire 
dans le cadre de la loi sur la formation continue ou 
a ti tre individuel. 



Le I? novembre 1982 a ete signe a Paris un contrat 

de dis tribuLion pour la France, l'Eapagne ct le Por- 
tugal entre Sivea Informatique et la societe ameri- 
caine Microsoft. Ce contrat concerne la dlstri hution 
par Sivea des produits Microsoft pour Apple 2, IBM 
PC et tout ordinateur disposant de CP/M-80 : Compila- 
teurs FORTRAN, COBOL, BASIC, macro-assembleur Z-80, 
muMATH/muSIMP, etc... 



IDEM importe tr.aintenant les cartes graphiques 80- 
GRAFIX + pour les TRS modeles 1 et 3 (1590 F ttc) et 
GRAFIX SOLUTION pour le modele 3 uniquement (3290 F 
ttc). Alors que la premiere permet a 1' utilisateur 
de definir 126 caracteres supplemental res quelconques 
(programmables) , la seconde offre la haute resolution 
en nolr et blanc : 512 x 19? points et autorise un 
affichage de 80 caracteres par ligne. 



Tandy comble le trou entre les modeles 2 et 16 avec 
le modele 12 qui devrait apparaitre bientot sur le 
marche francais. Compatible avec le TRSDOS du modele 
2, la meraoire centrale du nouveau modele serait por- 
tee a 80 k octets, le clavier comprendrait des tou- 
ches de fonctions programmables et on disposerait de 
6 connecteurs d 1 extension au lieu de 1. Option : 
carte graphique haute resolution 610 x 210. 



PETITE ANNONCE 



Je voudrais vous parler d'un prodult qui n'e- 
siste pas encore off iciellement. . . mais qui ne 
demande qu'a l'etre. II s'agit d'un vieux reve 
qui s'est realise : la haute resolution couleur 
3ur modele 1, mooele 3 ou Video-Genie ! Le TRS- 
30 est plein de qualites comme vous le save?., 
mais 1 ' un des principaux reproches que I'on 
peut lul adresser face a ses concurrents est 
sa carence en graphiques (128 x 18) et en oou- 
ieurs (?). l.e dispositif qui est racoorde ac- 
tuellement sur raon vieux modele 1 Lul apporte 
jne resolution de 320 x ?50 (80.000 points) en 
nuit couleurs (ou teintes degradees de gris 
sur un euran noir et blanc) et ces effets gra- 
p'niques sont visibles sur l'ecran noir et blanc 
du TRS en SUPERPOSITION avec Les graph ismes et 
textes standards. Optionei lement , on peut rac- 
-order un ueleviseur muni d'un prist- Perlte 
sur le dispositif pour obtenir aiors la meme 
image que sur l'ecran de base mais avec huit 
vraies couleurs. La carte HRC (haute resolu- 
tion couleur) se branc'ne sur le connecteur BUS 
le l'ordinateur et le cable du mcniteur video 
transite par cette carte. Ce raocordement ne 
necessite aucune modification du materiel. II 
reclame fieuJoracnt une alimentaticn exterieure 
5 V. La carte HRC d'une taille de 110 x 180 mm 
possede une memoire autonorae de 61 K octets qui 
peut contenir deux pages en haute resolution 
utilisables pour des effets d'animation. \'f 
plus, cette carte possede un mode TEXTE acces- 
sible par logiciel et autorisant les attribute 
visuels (inversion video, soul igrement , cligno- 
t«ment) et la prograramation de 1 generateurs d<* 
caracteres simultanes. . . Dans i'etat actuel des 
choses, un logie:el d'extension cu BASIC exlate 
et fournit le minimum d ' instructions graphiques 

necessalres : HPL0T, HC0LOR, HI'ACE, HCLS, HDISP, 
HGET, HPUT et cela permet deja de faire beaucoup 
de choses comme par exemple reproduire (et sans 
contraintes) sur un modele 1 les beaux desslns 
que I'on obtient sur un TRS couleur ou un Apple. 
Un circuit imprine et une documertation de la 
carte HRC existent deja mais son concepteur n'a 
ni le temps ni les structures pour envisager 8a 
fabrication et sa commercialisatLon a grande 
echeJle. Une etude de prix a reve le que cette 
interface ne devrait pas depasser un prix de 
vente de 2000 F ttc et il reste a trouver une 
societe qui veuille bien prendre cette reali- 
sation en charge. Si vous pensez etr* cette so- 
ciete, contactez-moi au plus vite en ecrlvant 
au journal qui transmettra. (N'oubliez pas la 
reference PA— TR5) 

PA - TRb 

c/o TRACE 

8 rue Saint-Marc 

75002 - PARIS 
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Microsoft annonce XENIX sur le modele 16. Par addi- 
tion d'un ou deux terminaux peu couteux, le modele 
16 equipe de XENIX offre aux utilisateurs la possi- 
bility de travailler almultanement sur la merae machi- 
ne. Developpe par Microsoft, XENIX est derive du sys- 
teme d ■ exploitation UNIX et posaede des caracteristi- 
quea tres sopnistiqueea telle3 que : repertoire en 
arbre, entrees/sorties loglques independantea des pe- 
ripherlques, chatnage de programmes, mode "foreground" 
et "background", multi-utilisateurs, raultl-taches. . . 
Tandy annonce qu'aux Etats-Unis et pendant ie premier 
trlmestre 83, le systeme d' exploitation XENIX sera 
offert a tous les possesseura du modele 16 et 3era 
integre dans la production des modeles 16 a venir. 

Pour accepter ce DOS, le TRS doit actuellement etre 
equipe de 256 K octets de memoire et d'un dlsque dur 
en attendant la fin du premier semestre 83 ou Radio 
Shack doit sortir la premiere version de XENIX sur 
disque souple (mono-utllisateur) . 



La societe bordelaise BOUTISOFT annonce une innova- 
tion technique particullerement importante pour le 
PC 1211 : une carte d' interface 12 K RAM integree 
dans le boitler du poquette. Cette extension conser- 
ve la compatibility aveo tous les programmes exis- 
tants et offre jes p03Slbilites complementaires d'a- 
daptation de nojveaux perlpheriques : modem, inter- 



essai logiciel 



faces aerie, video, parallele. Son nom : SHARM, son 
prix : 1500 F ttc (montage compris). 



Le nouveau catalogue 83 Tandy est arrive ! Mise a 
par; les produits recenta dont noua voua avlons deja 
paries (modele 16, cisque dur, poquette PC2), deux 
points merltent d'etre soullgnes apres 3a 'lecture. 
D'abord, le modele 1, bien que n'etant plus vendu, 
est toujours present par sea accessolres qui eux res- 
ten; au catalogue : interface d' extension, generateur 
de caracteres accentues, kit d' installation des mi- 
nuscules, etc... De plus, la gamme des iraprlmantes a 
ete largement modifiee (mise a part la Marguerite et 
la Line Printer V) avec 1' apparition de nouveaux mo- 
deles : DMP 100, 200, 100, COP ( testee dans TRACE nu- 
mero 1). Par contre, certains modeles comme la Line 
Printer VIII par exemple, ne aemblent plus exlster. 
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EDIT, 

un editeur pleine page 



Nous vous preaenton3 aujourd'hui trois logiclels im- 
portants : deux aont concus par la societe anglaiae 
Southern Software et lis ont reir.porte un vif 3ucoes 
aux Etats-Unis (il faut le faire !). lis sont aujour- 
d'hui disponiblea en France ( vente par corresponden- 
ce exclusivement) aupres de la societe General Soft- 
ware ( 1 9 bd Montmartr-e, 75002 PARIS) qui les accompa- 
gne d'une documentation complete et en francais. Le 
troisieme est un langage : Pascal-80 represente en 
France par la societe IDEM (31 rue Sorbier, 75020 
PARIS) et que noua avona trouve particullerement se- 
duiaant dans sa nouvelle version. 

Nom : EDIT 

Claase : editeur BASIC pleine page 
Materiels : modelea 1 et 3, Video-Genie 
Prix : 230 F (cassette), 299 F (disquette) 



Voua connalasez BASIC et aa commande EDIT et 11 vous 
prend souvent de pen3er que sur une autre planete... 



voua pourriez ecrire et modifier facilement vo3 pro- 
granmes BASIC a la facon de 1' editeur de texte Scrip- 
sit. Ce reve est devenu une realite avec le program- 
me EDIT cree par la societe anglaise Southern Soft- 
ware. On s'etonne d'ailleurs, parmi la quantlte enor- 
me de logiclels dlsponibles sur TRS, que cet utili- 
talre n'ait pas vu le Jour plus tot. La procedure 
d'appel est simple : on charge d'abo.-d le programme 
EDIT (langage machine) puis on travatlle normalement 
en BASIC avec la difference que 1' editeur est invoque 
par la frappe de la commande "/EDIT" au lieu du "EDIT" 
hab:tuel. Des cet instant, le programme qui etait 
charge en memoire peut etre modi fie ou complete selor. 
le mode dlt "pleine page", c'eat-a-dlre a l'aide d'ur. 
curaeur ullgnotant que l'on peut deplacer dans tout 
le programme par les 1 fleches de direction. Lorsqu' 
on attelnt le bas de l'ecran, le texte remonte auto- 
matlquement vers le haut a la maniere d'un film pas- 
sant devant une fenetre de vision. Les commandea se- 
lon le cas, sont precedees de BREAK ou de "§", cette 
derniere se comportant comme une touche de controle 
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( f aeon Scrlpslt). Pour vallder la modification, on 
utilise tout raturellement ENTER alors que CLEAR an- 
nule les ordres entres depuls le dernier ENTER. Tou- 
te ligne modifiee sera accompagnee d'un signe graphi- 
que a droite de l'ecran indiquant une alteration de 
celle-ci. Les possibilites d'edition sont plus que 
satisf alsantes puisqu T il est possible : de supprimer, 
d'inserer, de deplacer ou de recopier un caractere, 
une ligne ou un bloc de lignes ; de rechercher la 
presence d'une chalne de caracteres et eventuellement 

d'y substltuer une autre chalne (pas necessairement 
de la meme longueur) ; enfin - et ces deux fonctions 
sont tres utiles - de creer deux lignes a partir d'une 
ligne contenart deux ou plusieurs commandes (separees 
par le signe ":") ou inversement de reunir deux li- 
gnes en une seule. Mais l'edition ne porte pas uni- 
quement aur lc contcnu' dco lignca dc progranmco : il 



est aussi possible Ue modifier indivlduellement. cha- 
Afin de redulre l'espace memoire occupe par l'editeur 
(un peu plus de 3 K octets), on trouve aussi sur la 
disquette (valable dans cette version uniqueraent) un 
EDIT "overlay" qui laisse libre la memoire utilisa- 
teur. Un seul inconvenient : il ne fonctionne que 
sous TRSDOS et LDOS (ainsi que "small-LDOS" ) contrai- 
reraent a la version standard qui n'a pas cet inconve- 
nient et s'adapte a toutea le3 configurationa dc aya- 
temes d' exploitation et de memoire (16 a 48 K). Un 
dernier mot : le manuel d'accorapagnement (11 pages) 
est en francais ! 

Nos conclusions : un excellent outil pour rendre la 
vie bien plus facile et qu'on adopte des qu'on l'es- 
saye ! 
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ACCEL 3, 

pour accelerer vos 
programmes 



Nom : ACCEL3/4 

Classe : compilateur BASIC 

Materiels : mcdeles 1 et 3, Video-Genie 

Prix : 690 F (ACCEL3/4 disquette), 

650 F (ACCEL3 casette) 



Ce compilateur "mini" par son prix et sa taille me- 
moire off re de "maxi" services a ceux qui, deplorant 
la lenteur de l'interpreteur BASIC recherchent des 
programmes plus performants pojrvu que cela ne leur 
compllque pas trop la vie ! Avec ACCEL3, ce but a ete 
atteint et ce sont surtout les utilisateurs de confi- 
gurations a cassette qui voua le dlruiit car- pour- eux , 
les compilateurs classiques (tou jours sur disquette) 
se trouvaient hors de leur portee. ACCEL existe en 
deux versions : ACCEL3 (cassette ou disquette, utili- 
sable dans toutes les configurations 16 a 48 K) qui 
occupe moins de 6 K octets de memoire et ACCEL4 qui 
est la version "overlay" (disquette uniquement) qui 
laisse libre la quasi totalite de la zone memoire 
utilioatcur. Attention :• cette derniere ne fonctionne 
que sous TRSDOS et LDOS (ou small-LDOS). La mise en 
oeuvre du compilateur ACCEL3/4 est on ne peut plus 
simple : une fois que celui-ci est charge ( langage 
machine), on utilise BASIC comme par le passe en ecri- 
vant ou en appelant en memoire de la cassette ou la 
disquette le programme de son choix . Lorsqu'on estime 
que ce dernier est "au point" et fonctionne corree- 

t.f*mpnt , il est necessaire de le aauver sous cette 
forme avant d'appeler le compilateur (en cas de modi- 
fications ulterieures) . On frappe ensuite : "/FIX" 
qui lance la compilation qui s' execute en quelques 
secondes ou fractions de seconde selon la taille du 
programme source. En LISTant le programme on a alors 
la surprise de constater qu'il se trouve reduit a 



quelques lignes... On peut alors le sauver sous cette 
ferine par la coramande habituelle CSAVE (ou SAVE avec 
disquette). Attention : Pour utiliser de nouveau ce 
programme, il sera necessaire qu'ACCEL3 soit en me- 
mcire. Une autre surprise nous attend lorsque l'on 

frappe la eommande RUN : la Vitesse d ' exeeut ion se 
trouve multipliee par un facteur qui varie selon les 
instructions et fo.lctions employees. Prenons un exera- 
pie : 

1C DEFINT X,Y. 

2C A$=TIME$ 

4C FOR Y=0 TO 47 

5C FOR X=0 TO 127 

60 NEXT 

70 PRINT A$,TIME$ 



' temps depart (version disquette) 
SET (X,Y) : NEXT 
1 affichage depart, arrivee 



En interprets l'ecart est de 42" alors qu'apres com- 
pilation il passe a 5". Une boucle entiere de a 
10000 prend 2 secondes une fois conpllee avec ACCEL3 ! 
Bien sur, il n'en sst pas de meme avec toutes les ins- 
tructions et certaines n'apportent que peu de change- 
men t mais en moyenne, il s'avere que le gain de temps 
est toujours tres positif. Un autre element Interes- 
sant d'ACCEL3/4 est la possibility d'inhiber la com- 
pilation sur certaines portions de programmes (ins- 
tructions non-standards par exemple) par les comman- 
des N0EXPR et EXPR qu'il suffit de placer en commen- 
taires aux endroits a laisser intacts. Enfin, si vous 
destinez certains programmes a la vente, ils peuvent 
etre compiles avec ACCEL3 a condition que cela soit 
stipule dans la documentation, et sans qu'il soit ne- 
cessaire de verser des droits a Southern Software. 
En conci'usion : un compilateur tres souple, facile a 
utiliser en version cassette ou disquette et qui don- 
nera du "punch" a t-ous vos programmes BASIC ! 
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Pascal 80 



Nom ; Paacal-80 

Classe : langage 

Materiel : modeles I et 3, Video-Genie 

Prix : 1 1 90 F (dlsquette) 



Vous possedez une dlsquette et vous voulez parler un 
autre Langage que BASIC ? Ccttc nouvelle version de 
Pascal— 80 e3t probabletnent la plus Interessante st 
la plus per formante actuellement sur le roarche. 

Ce logiciel cree par Phelps Gates (auteur egalemsnt 
de 1' excellent APL-80) est apparu sur le marche ame- 
ricain debut 81. C'etait alors le seul produit of frant 
aux utilisateurs du modele 1 la possibilite de pratl- 
quer le langage Pascal sous une forme assez procne 

de la version standard. Cette premiere version quoi- 
qu 1 interessante, possedait un certain norabre de lacu- 
nea ou d' lnconvenlents qui pouvait en limiter son era- 
ploi, a savoir par exemple : utilisation sous TRSDOS 
ou NEWDOS-f uniquement, limitations de l'editeur, pas 
de posslbilites graphiques, impression des listes peu 
facile, notice extremement rudimentaire. 11 possedait 
par contre des le depart les avantages suivants par 
rapport au Pascal UC3D (seul concurrent a l'6poque) : 
grande facilite d'emploi, tre3 bonne interactiv^e 
entre les differents modules constitutifs (editeur, 
compilateur, executeur, moniteur), prix tres attrac- 
tif (100 $ aux USA). La distribution du Pascal-80 a 
ete reprise des le debut 82 par la societe New Clas- 
sics Software qui y a apporte de nombreuses correc- 
tions et ameliorations, amenant ce logiciel dans sa 
derniere version (revision 1) a des caracteristiques 
tres proches de la version du Pascal standard. C'est 
de celle-ci dont il va etre question maintenant. 
Le module "PASCAL/CMD" (19 granules sur dlsquette) 
se charge entierement en memoire (pas d'overlay) et 
les b sous-modules qui le constituent sont a tout 
moment accessibles a 1 ' utilisatejr : l'editeur (frap- 
pe et correction du texte source), le compilateur 
( transf orme le tcxtc source en code interriiedlalre 
(P-code), 1' executeur (execution du P-code a parti r 
de la memoire ou de la dlsquette) et le moniteur. Ce 
dernier sert de "supervlseur" aux fonctions preceden- 
tes alnsi qu'aux echanges entrees/sorties suivantes : 
chargement en memoire du programme source et sauve- 
gHrde sur dlsquette du source et du P-code, fusion 
de deux programmes source. Une amelioration majeure 
a ete apportee par rapport a la premiere version, 

c'est la possibilite d'executer Le Pascal sous tcus 
les DOS connus, le faisant beneficier notamment de 
la double densite. Pour ameliorer la transportability 
(le P-code du Pascal-80 n'est pas standard), un uti- 
litaire est fournl sur la dlsquette pour convertir 
les programmes source (comprimes pour des raisons 
d'economie de place) en format ASCII et inversement. 
Ainsi par exp.mpl*, rien n'empeche le source Paoeal 
d'etre compose oj lu par Scripsit. Une autre amelio- 
ration significative de cette nouvelle version est 
la possibilite donnee par deux utllltaires de creer 
un module autonome du programme compile, executable 
directement sous DOS (format /CMD) et qui est obte- 
nue par l'adjonction au programme objet de 1 'execu- 
teur de P-code dj Pascal-80. II ne s'agit done pas 
de la production directe d'un code an format "langa- 
ge machine". 

Par rapport au Pascal standard, on constate quelques 
limitations comme : absence d'enregistrements varia- 
bles ; absence de WITH... DO, de GET et PUT, de PACK 
et UNPACK, de 1 ' instruction PAGE, des structures de 
fichiers ARRAY OF FILE ; les procedures et fonctions 



ne peuvent etre paaeees comme parametrea d'autres 
fonctions ou procedure ; un ensemble (SET) ne peut 
avoir plus de 256 elements constitutifs ; pas de va- 
riables locales. Par contre, les extensions au stan- 
dard sont nombreu3e£ et fort lnteressantes : la struc- 
ture ARRAY OF CHARACTER peut etre imprimee avec une 
seule instruction ; en plus du type REAL qui donne 
it chifrres significatifs, Pascal-80 offre un REAL6 
(precision de 6 digits) qui permet une economie de 
memoire et de temps dans certains cas; de meme, les 
declarations SP et DP (simple et douDle precisions) 
pernettent d'influer sur la rapidlte des calculs (30 
%) j 1' instruction CASE est etendue pour inclure une 
clause ELSE dans l'hypothese ou aucun des "cas" n'est 
detecte ; les fonctions et procedures internes sui- 
vantes sont reconnues : CHR$ ( identique au BASIC), 
PSET, PRESET, POINT ( identiques aux SET, RESET, POINT 
du BASIC), G0T0XY (identique au PRINTS), CLS, PEEK 
et POKE, RND et RNDR ( RND et RANDOM du BASIC), INKEY 
(id INKEY$), CALL (appel de sous-programme en langa- 
ge nachine avec passage de parametre) , MEM (id BASIC;, 
FP (partie fractionnaire d'un reel), EX (exposant d' un 
reel), PI ( le nombre pi), SEEK (positionnement poin- 
teur dans un fichler), NEW, NIL, MARK, DISPOSE (uti- 
lisation de variables "pointeurs" permettant la real- 
location dynamique de la memoire). Bien entendu , tou- 
tes les fonctions mathematiques connues du BASIC sont 
presentes ici mais avec 1 b chiffres significatifs ! 
La directive INCLUDE constitue egalement le point for^ 
du Pascal-80 : elle permet a 1 ' utllisateur de definir 
sur disque sa propre bibliotheque de procedures ex- 
ternes qu'll pourra integrer a son programme au mo- 
ment de la compilation. Un programme entier peut aus- 
si etre appele par ce raoyen. 

Notre essal du Pascal-80 n'a pas revele de points 
faibles majeurs du logiciel. II peut toutefols etre 
signale que les utilisateurs de modeles 1 anclens 
pourront rencontrer un probleme avec la touche "con- 
trol" de l'editeur (SHIFT fleche basse) qui provoque 
un interligne genant lorsqu'elle est executee. Nous 
avons signale ce point au distributeur en lui propo- 
sant une modification simple qui corrige ce defaut. 
Sur la dlsquette Pascal-80, on trouve deux programmes 
de demonstration au format source : une gestion d'a- 
dresses et un progranme qui dresse la courbe de Gauss 
d'un tlrage a pile ou face. Ce dernier qui utilise 
des uraphiques, donne une bonne idee de la superiori- 
ty en vitesse du Pascal par rapport a 1 ' lnterpreteur 
BASIC . 

La documentation, complete mais en anglais, est con- 
tenue dans un petit classeur de 72 pages et lnclut 
un index detaille. C'est une amelioration lmportante 
par rapport aux versions precedentes ! 



Pour conclure, nous dirons que Pascal-80 
cellent logiciel tant du point de vue de 
sage du langage que de son utilisation p 
cations courantes en raison des ameliora 
diques apportees au produit et qui 1'ont 
un stade tres proche du Pascal standard 
parfuis) . Ses points forts sont certaine 
de facilite de mise en oeuvre et le tres 
d' interactivity qu'il offre, as3ocies a 
sonnable meme en France... Sa Vitesse d 
n'es". certes pas comparable a celle d'un 
produisant du code machine Z-80 mais e'e 
mis ;out-a-fait acceptable devant le3 av 
presente. 
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programmes 



Cote court 



CONVERSION HEXA-DECI 



UN OUBLI. .. 



La routine de conversion hexa/deci due a Frederic 
Mora et dont nous parlions dans le numero precedent 
de TRACE etait si courte que nous l'avons oubliee. . . 
La voici done : 



1000 M9=0 : FOR 19=1 TO LEN(A*> : I9S=MID* ( At i I9» 1 ) 
IF 19$>"a" THEN J9=ASCU9*)-55 ELSE J9=ASC ( 19* ) -<i8 
1010 M9=N9»16*J9 : NEXT I RETURN 



ET TOUJOURS PLUS FORT ! 



Entre tempo, Denio Schneider a releve le defi de Fre- 
deric Mora en nous envoyant la routine suivante (11- 
gne 100) qui n'occupe que 79 octets ! La void, ac- 
corapagnee du programme d' utilisation : 

Alors ? Qui pourra encore faire mieux ? 

Nota : si l'on desire faire la conversion a partir 



d'une base differer.te de 16, 11 suffit de reraplacer 
la valeur 16 de la ligne 100 par la base choisie. 



1 ' PROGRAMME HEXft — > DEC1 •»• NO 3 »t« 




10 INPUT"hexa"iA» 




20 G0SUB 100 




30 PRINT "="!N 




W C0T0 10 




100 N'OlFORNlsOTOLENlAil-UNr^ASClMIDJIA* jLEN(A»)-Nl 


1) > : 


N=N-HN2-MN2>6<,>»7-<.8>»16 A N1:NEXTN|:RETURN 





Voici malntenant une routine qui permet la conversion 
d'un nombre N en base 10 vers un ncmbre en base B (re- 
sultat dans A$). Attention : la variable A est utili- 
sed ! 



JL'UUU H»- 

32001 A=N-INT(N/8>»B : A* = CHRt ( Ati.8- ( A + <>8>57 ) *7 )+A« : 
N=INT(N/B): IF MOO THEN 32001 ELSE RETURN 



Denis Schneider 



T/diV a Rr°c 



C'EST LA MEILLEURE ! 



10 CLS 
20 PRINT 
30 RUN 



'JE SUIS LE MEILLEUR" 



Je vous demande tout d'abord de m'excuser pour le 
contenu du message mais e'est tout ce que j'ai trou- 

ve pour qu'il y alt les bonnes lettres et les bons 
espaces aux bons endroits ainsi que le bon nombre de 
lettres ! En lancant ce petit programme (qui aural t 
pu etre dans "cote court"), croyez-vous que le texte 
va clignoter ? Exact: 11 va scintiller, mais ce n'est 
pas tout... Vous souhaitez qu'il soit un peu plus ra- 
pide ? Alors enlevez le dernier guillement de la li- 
gne 20 ! Vous voulez voir les mimes operations se de- 
rouler mais en sens inverse '.' Remplacez alors les es- 
paces par A, R et G ( tant pis pour la comprehension) ! 
Vous faut-il encore une preuve pour vous demontrer 
qu'un ordinateur n'en fait qu'a sa tete, quand il 
veut ? Alors ecrivez "JE SUIS LA MEILLEURE". Et si, 
sceptique, vous souhaitez de nouveau inverser les 



operations, frappez 

Bizarre, bizarre. . . 



"ELLE EST LA MEILLEURE" 



Maurice Ltaomme 



PROTECTION ANTI-INTRUS SUR PC- 1500 



II est possible de proteger son PC-1S00 ou PC2 contre 
un eventuel intrus : 

1 ) passez en mode PRO 

2) tapez : 1 ARUN : CALL &CD71 enter 

3) passez en mode RUN 

y) eteignez votre machine 

5) essayez de la rallumer. Probleme ? 

Ce true n'aurait aucune utilite s'il n'etait impossi- 
ble de reprendre le controle de la machine ! Pour ce- 
la, gardez le doigt sur la touche ON durant quelques 
secondes (mais... chut !). Nota : ne fonctionne qu'en 
mode RUN. 

Daniel Glazman 
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mathematiques 



Deformation : 



du 



* • I 




a l'ane 




Avec le programme ci-dessous, je vous propose de de- 
former un objet en un autre, ou plus precisemment de 
deformer son contour en oelul de 1' autre objet. 

A l'origlne, ce programme utilise la commande PLOT 
d * una extension BASIC appelee EMHBAS, qui permet de 
tracer rapidement et graphiquement un segment de droi- 
te deflnl par ses deux extremltes. Neanmoins, et etant 
donne que cet utllltaire n'est pas connu de tous les 
lecteurs, nous utiliserons une routine en langage ma- 
chine realisant la meme fonction (tiree du livre "La 
pratique du TRS-80" , volume 2, editions du PSD. Elle 
utilise un procsde de relogement automatique qui con- 
viendra aux trois configurations memoire possibles : 
16, 32 et 18 K. 




Le programme "DEFORME" etant lance, vous avez le choix 
entre 1 ) des motifs preprograming ou 2) des motifs 
introduits par leurs coordonnees (lignes 1170 - 1260). 
Si vous choisissez de repondre "1", vous avez plu- 
sleurs possibilites : deformer une croix en un ovale, 
une faucllle en marteau ( ! ) , une malson en un bateau 
ou un triangle en un autre triangle (lignes 1270 - 
1380). La, c'est affaire de gout ! Un instant plus 
tard, le temps de lire les coordonnees des point3 de- 
finlssant les motifs (lignes 1350 - 15t0), les deux 
dessins sont traces. Leurs contcurs sont const! tues 
de segments de droites formant une courbe fermee : 
c'est essentiel pour la methode utilisee. Face aux 
deux dessins, vous avez differentes facons de pour- 
suivre : 



1 - entrez un chiffre de 1 a 9 donnant le nombre de 
deformations successives d'un objet a 1' autre que 
vous desirez voir a l'ecran. Compte tenu de la reso- 
lution du TRS, ce nombre est llmlte a 9. Plus 11 est 
grand, plus les deformations sont progressives mais 

avec 9, vous pourrez trouver les dessins trop rappro- 

ches. . . Alors : 



2 - appuyez sur la tarre d'espace. Dans ce cas, les 
differentes deformations seront affichees l'une apres 
1' autre, avec effacage de la deformation precedente. 
Vous pouvez revenir au mode 1 et changer le nombre 
de deformations en frappant une nouvelle fois oette 
touche. Mais peut-etre etes vous lasse des motifs 
choisis 7 Alors. . . 



3 - appuyez sur la touche CLEAR pour revenir au menu 

du depart. Dans tous les cas, le cycle en cours dolt 

se terminer avant la prise en compte d'un appui de 
touche. 



II nous reste maintenant a savoir comment on peut 
introduire les motifs par leurs coordonnees. C'est 
assez simple : vous lntroduisez d'abord le nombre N 
de points du contour de 1' objet choisi. L'ordinateur 
vou3 demande alors l'abcisse (X) et l'ordonnee (Y)de 
chaque point (pour i=l a N+1). II s'agit de coordon- 
nees eoran (X comprla entre et 127, 1 entre et 
«3 pour reserver la derniere ligne au texte). 

Vous pouvez penser que ce procede est fastidieux, 
mais le dessin se trace au fur et a mesure de 1' in- 
troduction des points. II se peut que vous vous trom- 
pica ct qu'un point nc ooit pao a oa bonne place, 
lntroduisez alors en NEGATIF les coordonnees de ce 
dernier point et la droite precedente sera effacee. 
Cet^e methode m'eat apparue plus simple que celle 
utilisant un curseur mobile. Au debut, vous aurez 
peu;-etre un peu de mal, mais on s'y habitue vite. 

Tout cela est realise par les lignes 1550 a 2010 qui 
comportent cinq sous-programmes : introduction des X 
et des Y, visualisation ou extinction d'un segment, 
simulation d'un INPUT par INKEY$ pour ne pas pertur- 
ber l'affichage du dessin. J'allais oublier : K est 
limite dans le programme a 20 (DIM). On peut prendre 
une valeur plus grande mais 1' introduction des points 
risque de devenir fastidieuse ! 
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Mais comment le programme s'y prend-t-il pour effec- 
tuer des deformations ? Prenons des exemples et sup- 
posons (figure 1) qu'on veuille deformer un rectangle 
en un autre. A1, A2, A3 et A 1 ! etant lea sommets du 
rectangle Initial, B1 , B2, B3 et B4 ceux du rectangle 
final. Joignons A1 a Bl , A2 a B2, etc. . . Divisons cha- 
que segment Ai, Bi en P+1 segments egaux (si l'on veut 
P deformations). Les deformations successives sont 
alors obtenues en joignant ces points respectifs. Les 
calculs et affichages correspondents sont effectues 
aux llgnes 2130 a 2310. 



Coordonnees ecran 
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Figure 1 



Dans cet exemple, on modifie surtout les dimensions 
du rectangle. Toutes les deformations intermediaires 
sont des rectangles mais d'autres 3ont envisageables. 
Ainsi, deformer Al A2 A3 At en A2 A3 AI AI ne modifie 
pas le rectangle lui-meme mais les deformations inter- 
mediaires sont des parallelogrammes qui donnent une 
certaine impression de rotation des deformations (voir 
figure 2). 

On peut aussi deformer le rectangle A1 A2 A3 A 4 en 
un triangle Bl B2 B3 B4 (Al ira en Bl, A2 en B2, A3 
en B3 et Al en B4. 

Coordonnees ecran 
Foints 



Al Bt 








A2 Bl 





213 


A3 B2 


127 


13 


At B3 


127 






Nombre de deforma- 
tions : 19 (impos- 
sible sur 1' ecran) 



Bt A l 



II A2 




At B3 



A3 32 



Figure 2 



Tout contour est deformable en un autre, a condition 
que les deux contours soient definl3 par le merae nom- 
bre de points, certains pouvant etre confondus. 

Ben amusement, mais n'y passez pas trop de temps : 
ur. ordinateur, il parait que ga peut meme flnir par 
deformer celui qui 1' utilise ! 



1000 


' Configuration type : TRS modele 1; niveau 2? 16k 15 


1010 






1020 


'DEF0RME 01 


1030 
1040 
1050 


(C) 1983 TRACE et Gerald GrandFierre ^6 


CLEAR 200 : DEFINT D-Z : DIM U (4 > » X (21 i 10 ) » Y (21 7 10) IREM30 


1060 


G0SUB 1170:REM7E 


1070 


ON Z GOTO 1080?1130:REM8C y<cT^>\ 
1 CAS 1 C4 f >-%A 
G0SUB 1270 : IF Z = THEN 1060:REMA6 v 0lF) T \*\ 
G0SUB 1390:REM52 l V Cf,Vo 2 


1080 
1090 


1100 


1110 


G0SUB 213Q:REM4F VWSTT J 


1120 


G0SUB 2020 : IF Z = THEN RUN ELSE 1H0:REM35 \Jto&S 


1130 


' CAS 2 92 


1140 


G0SUB 1550:REM2C 


1150 


G0SUB 2130:REM27 


1160 


G0SUB 2020 : IF Z=0 THEN RUN ELSE 1150:REM09 


1170 


1 MENU PRINCIPAL 6A 


1180 


CLS : PRINT:REMF0 „ 


1190 


PRINT TAB (26) "DEFORMATIONS" : PRINT TAB(25) STRING$(14t * ) 


:REM3C 


1200 


PRINT : PRINT : PRINT "V0US P0UVEZ CH0ISIR i" '• PRINT:REMU 
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1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
ID? 30? 



PRINT" 1) MOTIFS PRE-PROGR AMIES" SREMQF 

PRINT" 2) MOTIFS INTR0DU1TS PAR LEURS COORDONNEES " I REM53 

PRINT : PRINT "VOTRE CHOIX ( 1 OU 2 ) ?":REMAA 

A$=INKEY$ : IF A*="" THEN 1240:REM49 

IF A*<>"1" AND A$<>"2" THEN 1240:REM1F 

Z=VAL(A$) : RETURN:REM6A 

'MOTIFS PRE-PROGRAMMES 06 

CLS : PRINT:REM8B 

PRINT "VOUS POUVEZ CHOISIR DE DEFORMER : 
UNE CROIX EN UN OVALE ": REM7D 
UNE FAUCILLE EN UN MARTEAU" : REM1A 
UNE MAISON EN UN BATEAU" : REMEA 
UN TRIANGLE EN UN AUTRE TRIANGLE" 
PRINT "VOTRE CHOIX (1 A 4) ?":REM9C 
IF A$="" THEN 1350:REMD8 
THEN 1340:REM56 



REMB1 



1) 
2) 
3) 
4) 



REM70 




: PR I NT 
PRINT 
PTUNT 
PRINT 
PRINT 
PRINT 
A$=INKEY$ 

IF A$<"1" OF A$>"4" 
Z=VAL<A$) :REMC7 
RETURN:REM05 
'LECTURE COORDONNES 8D 
CLS : RESTORE : ND=0:REM64 

FOR 1=0 TO Z-l : READ D : ND=ND+4#D : NEXT 
FOR 1=1 TO ND+4-Z : READ D : NEXT:REM5D 
FOR 1=1 TO N : READ X ( I ; 0) , Y( I ;0) : NEXT:REM3B 
P=l : FOR 1 = 1 TO N : READ X ( I » P > > Y < I ? P ) : NEXT:REM61 
RETURN:REMBF 
DATA 0?12? ll77?3:REMB0 

DATA 20?0?20 7 10 7 0? 10 ? 0> 15 7 20 7 15 7 20 7 25 ?30 ? 25? 30 7 15 7 50 ? 15 7 50 ? 
1073070:REM39 

:? 1 10 ? 35? 1 15 735? 122?3 



READ N:REM70 



1480 DATA 11072071037237 1007267100729,10373 

2 7 125;29 7 125 7 26? 122 7 23 7 115 7 20:REMF3 

1490 DATA 2573 725? 13? 15 7 13 ? t5 7 23 , 20 7 23 j 20 7 16 ? 30 7 16 7 30 7 1 10jO»0?6 

7l073:PEM93 

1500 DATA 110 7 30 7 110 7 35 7 114 7 35; 114 7 45; 117 7 45 7 117? 35 ; 125 ? 35 -125 7 3 

3 7 121 7 33 7 121i30jU5j30sREM23 

1510 DATA 2O7O757O;O75707l5»4O7l574O75^357O:REM64 

1520 DATA 100740799730775740780745/1207457 1257407 101730:REMEF 

1530 DATA 6O7O7O74D7 120740:REM7C 

1540 DATA 50i20?60j30?70?20:REM39 

1550 'COORDONNEES EC 

1560 CLS : PRINT:REM72 

1570 INPUT "NOMBRE DE POINTS < <=20) " ; N: REM2D 

1580 IF N<1 OR N>20 THEN 1570:REMFC 

1590 CLS:REM40 

1600 P=0:J=P:GOSUB 1640:REM26 

1610 CLS:REM2C 

1620 P = l : J=P : GOSUB 1640:REt111 

1630 RETURN:REMOA 

1640 FOR 1=1 TO N+l:REMB9 

1650 PRINia960;"P0INT";I;"ABSCISSE X ?"?:REMDB 

1660 GOSUB 1920 : X ( I 7 P ) =VAL ( B$ ) : REMF 8 

1670 PRINTa960iSTRING$(60j32) ? :REM70 

1680 PRINTa9607"P0INT";l;"0RD0NNEE Y ?";:REMAF 

1690 GOSUB- 1920 : Y ( I 7 P ) =VAL ( B$ ) : REMD9 

1700 PRINTa960 7STRING$(50 7 32) ; :REM53 

1710 IF X(I?P)<0 OR YIIiPXO THEN GOSUB 1840 : GOTO 

1720 IF X(I?P)>127 OR Y(l7P)>44 THEN 165fj:REMC3 

1730 IF ION+1 THEN GOSUB 1790:REM3E 

1740 NEXT:REMA7 

1750 CLS:REMAO 



165Q:RE;N46 
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1760 
1770 
1780 
1790 
1S00 

laio 

1320 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



M = N : GOSUB 225Q:REM16 

FOR 1=1 TO 2000 : NEXT=REM00 

RETURN:REM74 

' SEGMENT ALLUME FC 

IF I>1 THEN M=I-1 : GOSUB 2250 

X(0»P)=XdiP> : Y(0>P)=Yd*P) 

SET«X(l7P)?Y( I ? P) ) :REMO0 

RETURN :REM41 

'SEGMENT ETEINT C9 

IF 1=1 THEN RETURN:REM85 

I=I-l:REM4F 

CLS:REM27 

IF 1 = 1 

IF 1=2 

M=I-2 

RETURN 



RETURN :REM8G 
REM7B 



^OMAff 



^O/fl 



c\ 



T **C E 



OVo 2 

V ' Am V. y 



*0\£ 



RETURN: REM67 
SET(Xd-iiP) 
250:REM8E 



Y ( I - 1 j P ) ) 



THEN 
THEN 

GOSUB 
REMF1 
'REPONSES IMUMERIQUES 79 
EC=980 : B$="":REMB8 

A*=INKEY$ : IF A$="" THEN 1940:REM83 
IF A$>="0" AND A*<="9" THEN 2010:REM 
IF (A$="+" OR A$="-"> AND B%="" THEN 
IF ASC(A$!=13 THEN RETURN:REM77 
IF B$="" THEN 1940:REM97 

IF ASC(A*)=fi THEN B*=LEFT* ( B$ rLEN( B* ) -1 ) 
EC=EC-l:REME5 
2000 GOTO 1940:REMCE 

EC=EC+1 : PRINT3EC?A*; : GOTO 
15 



RETURN :REM47 



010:REM6C 



P R I N 



2010 

2020 

2030 

LSE 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 



THEN F=l-F : RETURN:REMFE 
=31 THEN Z=0 : RETURN:REM8D 
OR A$>"9" THEN RETURN :REMC9 



P) :REM2E 



1940 
B$=B$+A$ 
' CLAVIER 

A$=INKEY$ : IF A$=' 
030:-REM9B 
IF A$=" " 
IF ASC(A$ 
IF A$<"0" 
Q=VAL(A$)+l:REM13 
FOR 1=1 TO N:REHFD 
X ( I 7 Q)=X ( I 7 P ) : Y( I jQ)=Y( I 
NEXT:REM3D 
P=Q:REM44 
RETURN:REM1E 
' INTERMEDIATES A6 
CLS:REM18 

FOR J=0 TO P : C=J/P:REMF9 
FOR 1=1 TO N:RENAU 
X ( I ? J) = INT( ( 1-C ) *X ( 1 7 ) +C*X ( I 
Yd? J) = INT( (1-C)*Y(I?0)+C*Y(I 
NEXT I:REM9A 
M=N : GOSUB 225Q:REM5C 
FOR K=l TO 200*F : NEXT:REM5F 
IF F=l THEN CLS:REM23 
NEXT J:REM71 



1940:REN1A 
THEN IF F=l THEN GOSUB 2130 : RETURN E 



P) + 

P) + 



5) 
5) 



REMEB 
REMDE 



RETURN :REMA6 

'DROITE 2E 

U(0)=l:REM48 
2270 FOR K=l TO M:REM3E 
2280 U(1)=X(K;J) : U(2)-Y(K»J) 
=Y(K+1-N*INT(K/N) 7 J) :REMOC 
2290 W=USR(VARPTR(U(0) ) ) :REME1 
2300 NEXT:REM75 
2310 RETURN:REI15F 



U(3) = X(K + 1-N*INT(K/N) 7 J) : U(4) 
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Trace cTun segment graphique 



Cette routine en langage machine trace un segment de 
drolte connaissant les coordonnees des points d'ori- 
gine (Xa, Ya) et de destination (Xb, Yb) , ces dernie- 
res etant placees dans les elements 1 a 1 d'un tableau 
ENTIER. L'element contient 1 si l'on veut tracer un 
segment ou si on desire l'ef facer. Attention : 11 
est necessaire de lancer D'ABORD ce programme (qui se 
termine par un NEW) avant de charger votre programme 
principal . Pensez aussi a le sauver avant ! 

Exemple d'utilisation (apres execution de la routine) : 

10 CLS 
20 U%(0)=1 
30 U»(1)=0 : 
10 U»(3) = 127 



U%(2)=0 
U%<1») = 17 



Xa.YA = 0,0 
Xb.Yb = 127,17 



50 X=USR( VARPTR 
60 GOTC 60 



U%(0) )) ' trace du segment 
Ce programme tracera une diagonal e 3ur votre ecran. 



Pour adapter la routine a votre 
ligne 210 la taille memoir e RAM 
ordinateur (CM=16 pour 16K, CM= 
programme reloge alors (ligne 2 
de memcire et en definit automa 
d f entree (POKE en version caaae 
Slon disquette). Mais avant tou 
finir au moment de l'initiallsa 
le "meirory size" adequat (voir 
180). 



systeme, placez en 
disponible sur votre 
32 pour 32K...). Le 
50) la routine en fond 
tiquement le point 
tte ou DEFUSR en' ver- 
te chose, pensez a de- 
tion de I' ordinateur, 
tableau lignes 140 a 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
AD 
230 
240 
250 
260 
270 
280 
290 
300 
310 
M60 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 



Sous/proaramire de trace d' un seament 

Sequence d'appel : X = USR (VARPTR ( 

auec 



Xa>Ya 
U%(D) 

US(0>=1 pour tracer 

UX(0>=0 pour effacer 

U%(l>=Xa 

UX(2>=Ya 

UX(3)=Xb 

U%(4>=Yb 



Xb 
) 



Yb 



tire du livre "La pratique du TRS-80" volume 2 
edition du PSIi avec la permission de l'auteur 



des 



taille memoire mem size 



16 k 
32 k 
48 k 



32256 (7E0OH) 
48640 (BE0QH) 
65024 (FEOOH) 



38 
CM = 48 



16? 32 ou 48 selon confis memoire 



F6 
EC 
E2 
D8 
CE 
C4 
BA 
B0 
A6 
9C 
92 
88 
7E 
74 
6A 
60 
56 
4C 
42 

5D 



IF CM=16 THEN AD=32256 ELSE IF CM=32 THEN AD=-16896 ELSE IF CM=48 THEN 
-512 ELSE PRINT "ERREUR CONFIG MEMOIRE" : ST0P:REM96 
1 1A 

AD+286:REM38 

IF A>255 THEN A = A/ 10+4*CM-64 : ^EMD6 

REM8F 



r 0R N=AD TO 

READ A i 

POKE N?A 
NEXT:REM6A 
' E7 

IF AD<0 THEN K=65536+AD ELSE K=AD:REM0A 
K2=INT(K/256) : K1=K- (K2*256 ) :REMC2 
IF PEEK( 16549)>67 THEN DEFUSR = AD ELSE POKE 



16526 




POKE 16527>K2:RE 



NEW:REM04 

DATA205 7 127. 10? 229 1 253 1 225 7 253 7 70 7 2 7 253 1 78; 4 7 253 7 86 7 6:REMB5 
DATA253i94»8»237;67»28 7l270i205il3 7l270i22l7 33.24»1270»120:REMBC 
DATA387 1 7 186756 727387 2557 121 7 187 7 46 7 1 7 56 72 7 46 7 255 7 34 7 24: REM3B 
DAT A 1270 7 120 7 146 7 242 7 55. 1260 7 237 7 68 7 103 7 12 1,147 7 242 7 63 7 1260 :REM78 
DATA237 7 68 7 1117347 267 1270 7 124 7 189 , 56 7 52 7 203 7 47 7 50 7 30 7 1270 : REMCA 
DATA37,248,58,25, 12707 2217 134 75 7 507 29 7 1270 7 58 7 30 7 1270 7 133: REM CO 
DATA50,30> 1270; 221 7 190 7 3 7 56 1 15 7 221 7 150 7 3 7 50 7 30 7 1270 7 58 .28 :REMD1 
DATA127072217 134 7 750 7 287 1770 7 7.T7.75 7 2ft 7 1270 7205 7 137 1270 7 24 : REM 58 
DATA209 7 125 7 203 7 47 7 50 7 30 7 12 70 7 45 7 248 7 58 .24; 1270 7 221 7l34:REM0B 
DATA4 7 50 7 28 7 1270 7 58 7 30 7 1270 7 132 7 50 7 30 7 1270 7 221 7 190 72 7 567 15 :REM7E 
DATA221, 150 7 2 750 7 30 7 1270 7 58 7 29 7 12707221; 1347l;507297 1270:REMD8 
DATA237 7 75 728 7 1270 7 205 7 13 7 1270 7 24 7 2097 62 7 1724,2 76272 7 229 :REMC1 
DATA2 13 7 197,245 7 197 7 121 7 183 731 7 71 7 120 7 128 . 128 7 185 7 40 7 5 :REM0A 
DATA56 7 3 75 7 24 ,245 7 80 7 193 7 12C 7 183 7 317 95 7 106 7 38 7 0741 7 41 :REM41 
DATA41;4l7 41;4l7l21;146 7i46 7l46 7l35 7l28 7H7;147771?22:REri34 
DATA0 7 25 7 17 7 760 7 257 126 7 183 7250 7 241 7 1260, 62; 128 ; 1 19 7 175: REMCC 
DAT A 184,62, 1,40,47 13575 7 32 7 252771 724 17254-1 7 327 47 1267 176:REM98 
DAT A24 737 1207 477 166; 119 ; 193 7209 ,225720 172537 1267 7 183:REM 15 
DATA202 7 180 7 1260 7 205 7 176 7 1260 7 201 7 7 ;0 ; > 7O 7 : REM66 



Gerald Grandpierre 
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utilitaire 



Mettez de l'ordre 
dans vos cassettes 



Pour oeux qui n'ont pas la chance d 'avoir une unite 
de disquette il est vralsemblable qu'ils accumulent 
un nombre assez important de cassettes, et souvent 
le desordre regne allegrement, 

C'est pourquoi je vous propose ce petit programme 
ecrit en BASIC qui permet d'editer des etiquettes 
pour cassettes sur les imprimantes GP80, GP100, LINE- 
PRITER VII. 



DESCRIPTION DU PROGRAMME 



- 1 ) On donne ie numero de la cassette que l'on veut 
editer. 

- 2) Saisie des tltres de programmes de la premiere 
face de la cassette (18 titres possibles) et ces nu- 
meros au compteur du magnetophone sous la forme nnn- 
nnn-xxxxxxxxxxx (Exemple : 089-123-titres) . 

- 3) Saisie des titres de la deuxlerae face sinon on 
Imprime 1' etiquette. 

- 4) Pour arreter la saisie taper "g" puis <EKTER>. 

Signification des codes imprimantes : 
chr$(30)= Passage en mode caracteres 
chr$(l8)= Passage en mode graphique 
chr$(31)= Passage en mode double largeur pour lea 
caracteres 

chr$(l8) chr$( 28) = Permet d'imprimer une chalne de ca- 
racteres graphique d ' une longueur chr(x). 



EXEMPLE 


5' EXECUTION 






* 




-ACE : 




* FACE 2 


* 


!001 


045 


ITITRE 


DU 


*000! 043! IDEM 


! 


!050 


089 


! PROGRAMME 


* ! ! 


1 


I 089 


120 


!SUR 1 




* ! ! 


! 


! 123 


134 


! CRRRCTERES 


* ! ! 


1 


! 




i 




* 1 1 


1 


I 




i 




* ! ! 


1 


! 




i 




* 1 ! 


1 


i 




1 




* I 1 


! 


i 




! 




* ! ! 


! 


i 




i 




* ! 1 


1 


l 




i 




* ! 1 


! 


i 




i 




* ! ! 


! 


1 




i 




* 1 1 


! 


! 




SO 


CAS! 
NO. 


1TTI -rafl 


1-StP 


2=5 


! 


i 




i 




* 1 ! 


! 


i 




1 




* ! ! 


! 


i 




i 




* I 1 


I 


i 




! 




* ! ! 


! 


1 








* ! ! 


1 





10 
20 
30 

h0 

50 
60 
70 
SO 
90 
10 
11 
7H 
12 
13 
14 
15 

16 

17 
IS 
19 
:G 

20 
21 

23 



Conf i aural ion d'essai s TRS-80 niveau 2» 16k 
Imprinante GPSO? GP100 ou LP VII 



Copariaht 1983 TRACE et Felix Escobedo 



F6 
EC 
E2 
D8 
CE 



REM =============================== FE 

REM = = = ==ETIQUETTES CASSETTES==«== F4 
REM =============================== EA 

CLEAR 2000:DIM MS ( 10 I 1 F 1$ ( 20 ) 7 F2$ ( 20 ) :REM50 
G0SUB 690:REM6C 

FOR H=l TO 18:F1$(H)=" " :F2$(H)=F1$ (H ) :NEX 

:REM95 

INPUT"NUMER0 DE LA CASSETTE (3 CAR MAX ) " ; NO : REM5B 
IF N0>999 THEN 120:REM76 
REM =======SAISIE FACE 1========= AE 

REM M 

CLS: PRINT CHRS ( 23 ); 'ATTENTION ! -3- POUR ARRETER ": REMDF 

PRINT'TACEl N0M PROG" " :REMDC 

FOR 1 = 1 TO 18:REM5<S 

IF LEFT$(F1$(I-1) 7ll="3" THEN F1$(I-1)=" 

0T0 240:REMDC 

PRINT " NNN-NNN-XXXXXXXXXXX":REM4C 

INPUT F1$(I) :REM70 

NEXTI:REM54 

PRINT"FACE 1 PLEINE " : REM27 




TRACEN°5-Avrill983-29 



240 INPUT"V0ULEZ-V0US REMPL1R LE SECONDE FACE" ! R* : REM77 

250 IF R$="0" THEN 290 ELSE 360:REMCC 

260 REM 35 

270 REM =====SAISIE FACE 2========= 2B 

2S0 REM 21 

290 CLS:PRINT CHR$<23) ; "FACE2" :REM00 

300 FOR 1=1 TO 18:REMDD 

310 IF LEFTS(F2t ( 1-1) »l)="a" THEN F2*<I-1>=" 

:G0T0360:REMSE 

320 PRINT " NNN-NNN-XXXXXXXXXXX":REMD3 

INPUT F2$(I) :REMF6 

NEXTI:REMDB 

PRINT FACE 2 PLEINE" : REMCF 

PRINT "IMPRESSI0N":REM9S 

REM C7 

REM ======IMPRESSION DE L' ETIQUETTE========== BD 

REM B3 

GOSUB 470:REM43 

INPUT"VOULEZ-VOUS RECOMMENCER " ; R$ : REM58 

IF R*="0" THEN 110:REM92 

END:REMD1 



330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 



11 



REM 

REM 

REM 

A$ = 
:REM36 

480 IF N0<10 
490 B$="$ 
500 LPRINT 
510 LPRINT 

FACE 2 
520 LPRINT 
530 FOR 1=1 



====SOUS PROGRAMME D' IMPRESSI0N======== 77 

6D 
♦":IF N0<100 THEN CS=STR$(N0) ELSE C$=R I GHT$ ( STR$ ( NO ) ? 3 ) 



THEN C*=" "+STR$(N0):REMC3 
%% %% %% %% %% XXX" :REM90 

CHR$( 18) ;CHR*(2S) ;CHR$(244) ;CHP$(224) ;CHP$(30> :REMAO 
A$;CHR*(30)5" FACE 1 " 5 A$ ! CHR$ ( 30 ) ! " 

";A*:REM62 
CH*$< 18)iCHRS(28) ;CHR$<244) ;CHR*<224> ! CHR$ ( 30 ) : REM8B 
TO 13:REMFB 



540 LPRINT USING B$ > " ! "+MID* ( F 1$ ( I ) , 1 1 2 ) ! " ! "+MID$ ( F 1$ ( I » ; 5 > 3 ) 
'+MIDS(F1$( I ) ,9, 11) ;"*"+MID$(F2*( I ) , 1 , 2 ) '. " ! "+MID$(F2$( I ) ,5,3) 
'+MID$(F2*(I)i9i 11);"! ":REMF6 

550 NEXTI:REM08 

560 LPRINT CHR*< 18) ;CHR$<28) ; CHR$< 244 ) ; CHR$ ( 224 ) :REM49 

";CHRS(18) !MS(1> !CHR$(30) i" CASSETTE 
18) iCHR*(28) ;CHR*(3) ;CHR$( 128 ) ! CHR$ ( 30 ) ! 



" ' 
» i 



» i 



" i 



I) 



ICHR$(18)II1*(2J ;CHR$(30) 
";CHR*<18> JM*C2> ;CHR$(1 
":REM26 

N0.";CHRS<31) ;C$;CHR$(30) 



"iCHR$(3D 
CHR*(28) ;CHR*(4 



570 LPRINT CHR$(30) 5 " 
';CHR$( 18) ;M$( 1) ;CHR* 
';CHR$(18> :REMB6 
580 LPRINT CHR$(30) 
!*' "; CHR$(30) S " 
i ;CHR$( 128) ;CHR$(30 
590 LPRINT" ! 
! ":REMC2 
LPRINT CHR*( 18) ;CHR$(2S) ;CHR$(244) ?CHR$( 131) ;CHR$(30) :REM3E 
FOR 1 = 14 TO 18-.REM72 
LPRINT USING B$ ; " ! "+MID* ( F 1$ ( I ) . 1 . 3) ; " ! "+MID* ( F 1* ( I ) . 5 , 3 

"*"+MIDS(F2*(I)>l>3);"!"+MID*(F2$(I> ,5.3);"! 
"! ":REMA6 



11) 
11) 



600 

610 

620 

•'+MID$(F1*( I ) ;9 
'+MID*(F2$(I);9 
630 NEXTI:REMB8 

LPRINT CHR*( 18) 

RETURN=REME2 

REM A4 

REM =======CREATION 



« i 



640 
650 
660 
670 
680 
o90 



CHR$(23) 5CHR$(244) ;CHR$(224) 



"^5-80"======== = = 9A 



REM 90 

DATA 7 56 ,56, 56 7 56 7 56.120 7 120 7 120.120 7 120,56,56,56.56 7 120. 12 
, 120,120, 1 20, 56 , 56 7 56 7 56 7 56 . 56 . 120 . 120 . 120 7 1 20, 0:REMED 
700 DATA 112, 120, 120, 120,89,88,88,88.88,88,88.88,88,16,0,0,64.64 
-64,64,16,120.120.927767767 108,4479271247124.120.56.28.28.76,120 

> 120,32, 0:REMF4 

710 DATA 0,0, 0.0, 0.6. 15. 15. 15, 15, 15. 0.0. 0.0. 15 7 157 157 15 737373.3. 

3.3, 3, 15, 15. 15, 14. 12. 4. 13.13. 137 13 7 137 13 713.13 .13, 13 715,15 . 15 77: 

REM9A 

720 DATA 7 37 373727 728,30,19, 17,31,31, 14, 15,31,63,51,56,56,28,30 

,15,7,3,0,0:REM1C 

730 FOR J=l TO 2:REM64 

740 FOR K=l TO 7l:REM23 

750 READ D:REI141 

■■60 H*(J)=M$( J)+CHR$(D+128) :REM58 

770 NEXT K-.REI129 

780 NEXTJ:REM20 

790 RETURN:REM55 



"o, 
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essai materiel. 



Un synthetiseur vocal 
"sympa" 
pour votre 
modele 1 





Nous vous l'avions annonce dans le magazine de notre 
numero 2 : le voici enfin apres un certain retard du 
a des problemes de fabrication. A cette epoque, il 
existait sous forme de prototype et nous avions deja 
pu nous faire une idee de l'interet qu'il pouvait pre- 
senter. Aujourd'hui, nous avon3 teste pour vous un 
modele de serle commercialise par PENTASONIC pour 
moins de 500 F. 



II s'appelle SYNPAT (synthetiseur de parole) et d'ail- 
leurs le dlt lui-meme ! II se presente sous la forme 
d'un petit circuit imprime de 12 x 88 mm qui se rac- 
corde par un cable plat au connecteur bus du TRS mo- 
dele 1 (au niveau du clavier ou du chassis d'exten- 

sion). La carte comporte une trentaine de composants 
dont trols circuits integres assurant les fonctions 
de decodage et d'amplification des signaux electri- 
ques lssus ri<? 1 ' ordinateur . En sortie de la carte, on 
peut attaquer directement un haut-parleur ou une en- 
ceinte acoustique ce qui evite d'avoir a utiliser un 
amplif icateur exterieur. La carte est alimentee par 
une pile de 9 volts, type prothese. Sur le circuit 
imprime, on trouve un petit potentiometre permettant 
de regler le niveau sonore de l'amplificateur. Les 
personnes bricolant un minimum auront interet a mon- 
ter le tout dans un coffret en matiere plastique sur 
lequel seront fixes un interrupteur de marche/arret 
alimentation, un potentiometre de reglage et une pri- 
se de sortie haut-parleur. On peut regretter que ces 
ameliorations ne soient pas prevues en standard. Tou- 
tefois, elles auraient probablement eleve sensible- 
ment le prlx de 1' ensemble qui il faut le reconnaltre, 
est assez bas compare aux synthetiseurs classiques 
(de l'ordre de 2500 F). Par contre, et etant donne 
qu'un amplif icateur basses frequences existe sur ia 
carte, il aurait ete astucieux de pouvoir y raccor- 
der la sortie son du magnetophone utilisee par de 
tres nombreux jeux. Dans une future version peut-etre ? 



Remarque : nous n'avons pu obtenir cette certitude 
mais il doit etre techniquement possible, moyennant 
1 ' utilisation d'un cable adequat, de raccorder le 
synthetiseur sur les ordinateurs Video-Genie, PR0F-6 
et raodeles 3. 



La synthese vocale s'effectue par loglciel a partir 
des phonemes (sons elementaires) ds la langue fran- 
galse qui suffisent a reproduire pratlquement tous 
les mots de notre langue. 

La fourniture actuelle du synthetiseur comprend La 
carte raontee et testee, telle qu'elle est decrite ci- 
dessus (sans la pile et le haut-parleur), une notice 
explicative donnant quelques exemples d'utilisation 
et une disquette non-systeme contenant le logiciel 
de synthese vocale et un programme de demonstration. 
Une cassette sera en venLe ul terieuremenl . Mala le 
moment est venu d 'entendre cette voix "inhumaine" ! 

Le chargement du logiciel de synthese s'effectue par 
la commande RUN "SYNPAT". Apres execution, le program- 
me se loge en memoire selon la configuration presen- 
te du systeme (16 a <48K, Level 2 ou BASIC disque) et 
affiche une valeur d'adresse. Cette valeur devra en- 
suite etre utilisee comme point d'sntree de la rou- 
tine de synthese vocale invoquee par USR. Cette rou- 
tine est auto-protegee et ne gene an rien Sexploita- 
tion du programme d'application. Lancons maintenant 
le programme de demonstration : RUN "DEMO". L'adres3e 
affichee precedemirent est demandee puis une voix "ca- 
verneuse" mais distincte se fait entendre : "Je suis 
l'ordinat.eur qui parle... Quel est votre nom 7".Vient 
ensuite un long discours : "tout programme BASIC peut 
desormais parler. lisez attentivemen ce qui suit...", 
dans lequel le synthetiseur fait la preuve de ses ca- 
pacites d'elocution : "Les chaussettes de l'archidu- 
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chesse sont arohi seches... Bizarre, bizarre, vous 
avez dit bizarre mon cher cousin !" (la on croirait 
plutot entendre Michel Simon !). Vient ensuite lalis- 
te parlee de tous les phonemes utilisables (30 plus 
le silence), chacun d ' eux etant accompagne d'un ou 



de plusieurs exemples : son 



comme Honolulu, son 



"che" comme chat, chaud , etc... Certains sons emploi- 
ent une syntaxe speciale comme par exemple : E' (ou 
4) pour le son "e" ("pays" s'ecrit "PE'I" ou "P4I" ) 
ou encore 1 pour le son "un" ("sympa" s'ecrit "SPA"). 
La possibility est alors offerte de frapper des phra- 
ses et de les entendre prononcer. Avec un peu d' habi- 
tude, on arrive tres rapldement a ecrire de raaniere 
phone tique : "VIV LA REVU TRAS" , "JE SUI S1PA"... 



Une remarque toutefo.s : 11 semble assez difficile 
de realiser le son "on" tel qu'il est decrit dans la 
notice. 

Pour sonoriser vos programmes BASIC, rien de plus sim- 
ple. En voici un exempl'e : 

A$ : "SALU LE' K0P1" 
X = USR (VARPTR (A$> ) 

Les paroles produites sont particulierement audibles 
bien que la "voix" soit legerement voilee. Voila qui 
donne encore plus de personnalite a ce bon vieux TRS 
qui n'a jamais semble aussi vivant depuis son enter- 
r emen t ! 

Jean-Pierre du Tillet 



Quelques complements techniques et historiques 



Les machines parlantes, comme les automates, ont 
tou Jours constitue un reve pour l'homme. En 1779, 
Christian Kratzentein realisa une machine coraposee 
de resonateurs capables de prononcer tres correcte- 
ment les voyellea. Duuze ana plus bard, Von Kempelen 
con3truit une machine parlante dans laquelle un souf- 
flet envoyait ce l'air sur une anche excitant un re- 
sonateur controle raanuellement . A condition de manier 
correctement les nombreux leviers dont elle etait 
munie, le resultat obtenu etait tout-a-fait satis- 
faisant. En 1835, Joseph Faber presente une machine 
similaire qui parle a voix haute ou chuchotee, et 
chante le "God aave the Queen" . 

Mais c'est en '939 que le premier synthetiseur elec- 
trique fait son apparition: le VODER (Voice Operation 
DEmonstratoR) , du a Homer Dudley. Ici, les sons sont 
prodults par des oscillateurs et modifies par des 
filtres dont les parametres sont modifies par des 
touches. 

Parallelement, les recherches menees par les labora- 
toires de la Bell Telephone conduisent au "Harp Tele- 
phone". II s'agit d ' une serie d'anches accordees sur 
differentes frequences et placees dans le circuit 
d'un electro-aimant, . Ce dispositif est l'ancetre du 
VOCODER, puisque le principe repose sur la decomposi- 
tion du spectre de parole (environ 3000 Hz) en 
plusieurs bandes de quelque3 centaines d' hertz de 
largeur. Cepencant, l'intelligibilite de la parole 
ainsi obtenue reste mediocre, et les recherches se 
sont orientees dans d'autres directions. 
II faut egalement citer les systemes IBM 7770 et 
7772, bases sur le stockage des mots sous forme nume- 
rique. Pour recuire le volume d' informations a stocKer 
(environ 300 octets pour une seconde de parole), 
l'idee est venue de decouper les mots en morceaux, 
et de reconstituer par juxtaposition de ces morceaux 
un grand nombre de mots. 

En poussant plus loin cette decomposition, on est 
arrive a definir le phoneme, ou son elementaire, qui 
est la plus petite entite phonetique. L'assemblage 
des phonemes entre eux selon les lois propres a 
chaque langue permet de reconstituer tous les mots de 
cette langue. Ainsi, on denombre 37 phonemes pour le 
francais, et 16 pour 1' anglais. 
En fait, ces lois d' association sont extremement 



complexes, et il est preferable de memcriser le 
resultat de 1' association des phonemes deux a deux; 
cette combinaison est appelee diphoneme ou diphone. 
Une etude statistique du LIMSI a trouve qu'un reper- 
toire de 627 diphonemes suffit en francais. 

Le systeme SYNPAT realise par programme la synthese 
vocale a partir de diphoncmea. Le prooeooeur Z80 n'eat 
pas tres rapide (1.77 Mhz), mais 11 suffit pour exe- 
cuter ce travail de selection et d' association. II 
est compose d'un programme qui realise la synthese, 
et d'un circuit qui convertit les echanti lions nurae- 
riques sur 7 bits en un signal analogicue represen- 
tant la parole. Ce signal est restitue par un haut- 
parleur apres amplification. 

La synthese qu'effectu© le programme est a base de 
diphonemes, afin de pouvoir creer presque tous les 
mots de la langue francaise (le vocabulaire n'est 
pas limite). Par allleurs, cette synthese est mise 
en oeuvre depuis n'importe quel programme BASIC 
concu dans ce but: il y a done une grande facilite 
d "utilisation . 

II a cependant fallu realiser un compromis entre la 
taille memoire du programme de synthese et la qualite 
de la reproduction. C'est ainsi que certaines corabi- 
naisons, qui necessitent pour etre reproduites par- 
faitement des calculs extremement longs et complexes, 
ont ete en faiu simplifiees. 

De metre, parmi les 37 phonemes de la langue francaise, 
certains correspondent a un meme son et ne se diffe- 
rencient que par la duree. Le programme ne genere 
que les sons courts, les sons longs pouvant etre 
crees par repetitions. D'autres phonemes, correspon- 
dent aux "demi-voyelles" , ne sont pas traites mais 
peuvent etre obtenus par combinaison de phonemes 
existants, par exemple Y0 par 10, X par KS ou GZ. 
La synthese vocale obtenue n'e3t pas parfaite: en 
plus de 1 'association des phonemes, il faudrait aussi 
traiter la "prosodie" des phrases, e'est-a-dire le 
rythme, 1 'intonation, routes les nuances que nous 
faisons passer dans le langage courant et qui en 
augmentent la Signification. 

II ne faut done pas chercher dans le systeme presente 
dans cet article "le" systeme parfait de synthese 
vocale. II est par contre un compromis peu onereux 
entre la taille memoire necessaire et la qualite de 
reproduction. De quol permettre a votre ordinateur 
de vous dire "merci" 1 
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essai materiel 



Interface MDX 3 : 
pour avoir des disquettes 

pas cher 



Cette interface tres attendue des lecteurs a en .1uRer 
par le courrier recu , est malntenant disponitle en 
France aupres de Pentasonic. Elle permet de diminuer 
de manlere sensible le cout de la premiere unite de 
mlnidlsquette sur le modele 3 tout en offrant de sur- 
crolt 1' interface RS-232 et un modem telephorique 300 
bauds integre... A noter que ce dernier dispcsitif, 
concu pour fonctionner selon les normes americaines 
n'est pas conforme a la legislation francaise. Mais 
peut-etre qu'une petite adaptation resoudrait simple- 
raent le probleme . . . 



MDX-3 est une interface en kit realisee par Micro- 
Design (Austin, Texas) composee d'un circuit imprime 
double face d'excellente qualite (213 x 165 rem) avec 
serigraphie et d'une documentation en permettant. le 
montage (du raoins pour ceux lisant l'anglais). A la 
vue du circuit imprime, on distingue le couplage ml- 
nidlsquette a gauche et la partie transmission a droi- 
te. Les deux connecteurs utilises pour raccorder de 
une a quatre unites de minldisquettes (deux dans le 
modele 3 et deux a l'exterieur) sont a contacts do- 
res. A droite, on remarque l 1 emplacement du connec- 
teur 25 points pour la liaison RS-232. La liaison en- 
tre MDX-3 et la plaque unite centrale du modele 3 
s'effectue par deux cables plats. 



Le montage des composants sur la carte ne deraande 
aucune competence technique particullere : 11 sufflt 
d'un bon petit fer a. souder, d'une main ne tremblant 
pas trop... et de faire preuve d'un peu de soin et 
d'attentlon. II est toutefols consellle de savoir 
faire une scudure a l'etain du de s'entralner prea- 
lablement (aur un autre clrcjlt imprime de preferen- 
ce !) pour attelndre ce but. 

Examinons malntenant ce dont est capable cette inter- 
face. Elle e3t strlctement compatible avec cellefour- 
nie par Tandy, aussi bien sur l'aspect materiel que 
loglciel. Le controleur de mlnidlsquette est un Wes- 
tern Digital FD 1 79 1 B qui permet de lire ou ecrire 
en simple ou en double densite sur une a quatre uni- 
tes simple ou double face, 10 ou 80 pistes (selon le 
systeme d' exploitation employe). Un separateur don- 
nees/horloge externe est Indus sur la carte. 
Pour la partie transmission, le controleur est un TR 
1602B et le generateur de frequences un BR 1911. Ici 
encore, aucun probleme de compatlDillte avec 1' inter- 
face standard Tandy. Le moden (qui lui, est inedlt) 
utilise 1' interface serie et est compose d'un circuit 



Integre tres recent ; le MC If 4 12, et de quelques 
circuits d'adaptation (filtres de frequences essen- 
tiellement). II Jtilise le prlncipe de modulation 
FSK (Frequency Shift Keying) base sur la generation 
de deux frequences (1070 Hz en enission, 2025 Hz en 
reception) augmentees ou non de 200 Hz (selon que 
l'on transmet un MARK ou un SPACE) et peut dlaloguer 
a la vltesse de 300 bauds (300 bits par seconde) en 
se raccordant a jne ligne telephonique ( aux USA, rap- 
pelons-le !) par 1' intermediaire d'un transformateur 
presentant une impedance de 600 ohm. 



Le circuit impriice nu et la documentation comprenant 
les schemas electriques sont vendus 725 F. Les c'onpo- 
sants que l'on peut trouver Chez le meme dlstributeur 
ne devraient pas exceder ce meme prlx (vou3 n'etes 
pas oblige de tout monter, a commencer par le modem 
par exemple). Mais ce n'est pas encore flni ! II vous 
faudra ensuite vcus procurer la mecanlque de fixation 
des: unites de dlsquette, une alimentation et les ca- 
bles de liaison. Tout cela vou3 cautera 1382 F si 
vous ne voulez pas vous "casser la tete" a chercher 
a gauche et a drcite. Enfin, le lecteur de minidis- 
kette (simple face double densite) sera a vous pour 
2195 F de plus (prix PENTA). 

Pour ceux qui hesitent encore a eapoigner le fer k 
souder, 11 existe depuis peu la carte MDX-6 montee 
et testee qui, pcur 1197 F vous off re unlquement le 
couplage mlnidlsquette (pas d 1 Interface de transmis- 
sion nl de modem). 
Et si malntenant nous faislons un petit bllan ? 



- carte MDX-6 (montee et testee) : 1197 F 

- kit mecanique, alimentation : 1382 F 

- 1 unite de discuette (simple face) : 2195 F 



Total 



507" FF TTC 



3emarque : vous atteindrez senslblement ce meme prix 
31 vous montez vous-meme 1' interface MDX-3 (et gagne- 
rez done "gratuitement" le couplace RS-232 et le mo- 
dem) . 

l,e meme kit chez Tandy vous coutera 6995 FF TTC avec 
en plus, il est vrai, le systeme d' exploitation et 
la garantie de reparer votre ordinateur sans Cout 
3upplementalre, ce qui ne sera plus le cas si vous 
Lntroduisez dans votre TRS du materiel "etranger". 
A vous de choisir malntenant ! 



Jean-Pierre du Til let 
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enseignement. 



Et il pompait, 
pompait, pompait 




SIMULATION DE DEUX POMPES 



L'ordinateur peut Stre utilise pour siiuuler lies fonc- 
tlonnements d 'apparel Is ou de machines dans le cadre 
de 1' enseignement des coura techniques et scientifL- 
qjes. Par exemple en Physique, lorsqu'un professeur 
dDlt expllquer le fonctionnement de la pompe aspiran- 
ts il doit dessiner au tableau des elements qui dans 
la reallte se meuvent. Pour simuler le mouvement e". 
montrer les differentes positions ne fut-ce que du 
piston, le profesaeur utlliocra de3 craies de couleur, 
et cela en surchargeant le dessln. II en va de meme 
des clapets de fermeture. Un jour cependant, les ele- 
ves ayant ete plus lents pour copier le dessin Je ne 
rendls dans le fond de la classe et, quelle ne fut 
pas ma surprise... En voyant ce tableau surcharge de 
couleurs, les differentes positions des organes, etc 



... m'apparaissaient comme un veritable foul Ills oil 
il etEit Impossible de determiner ou at: trouvait le 
point de depart et le point d'arrivee. Bref, on n'y 
comprenait pluo ii«n ! A parllr Ue cet Instant, Je 
me dls que c'etait la dernlere fois que Je procedals 
de cette facon et Je me mis au clavier, bien decide 
a troLver une solution. Au fur et a mesure de 1 'ela- 
boration du programme Je me rendais conpte du gain 
de temps et de l'efflcacite que j'obtlendrals. En ef- 
fet, 1 ' explication "ancien systeme" prenait une heure 
de cours et avec "le systeme ordlnateur" un cycle 

complct ovcc animation prenait trots romutca . ■ . Et 
en prime on peut recominencer le tout indef iniment . 

Nous vous donnons dans ce numero la liste du program- 
me permettant de simuler le fonctionnement d'une pompe 
aspirante. Dans le prochain numero, le programme pour 
la poir.pe aspirante-foulante. 
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10 Configuration type : niueau 2 7 16K? cassette 
2Q ' 

30' POMPE ASPIRANTE 

40 ' (C) TRACE et R. Henrotaa 

50 '- 

60 

70 ' GENERALITES BA 

80 

90 

100 

110 

120 

130 

140 

PE ASPIRANTE"; :REMSD 

150 FOR T=l TO 100:NEXT T:REM2C 

NEXT X:REM81 

PRINT 3 256? "UN RESERVOIR 'A' ? PLEIN D'EAUV' 
3 384? "SERA POMPE DANS UN RESERVOIR 'B' 
S 5127"QUAND CE DERNIER SERA PLEIN ? LA 



F6 
EC 
E2 
D8 
CE 



CLS:REM40 

GENERALITES 
CLEAR 500:REM63 
FOR X=0 TO 127 

FOR Y=0 TO 7 : 

FOR X=l 

PRINT a 

FOR T=l 

PRINT a 



SET(X77) 
SET( 127?Y) 



SET(X-O) 
SET(07Y) : 
TO 10:REM95 
667STRING*(60;32) 
TO 50 : NEXT T:REM6C 
667"ANIMATI0N EXPLIQUANT 



NEXT X:REMCD 
NEXT Y.'REMBF 



:REMB7 



160 
170 
180 
190 



PRINT 
PRINT 
RA":REM91 
200 PRINT 
PRINT 
INPUT 



LE FONCTIONNEMENT D'UNE POM 



REM4E 

":REM57 

POMPE S'ARRETE 



210 
220 
230 



250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



;x:remfb 



DES RESERVOIRS 
:REMC6 



a 660; ". . . ET LE CYCLE RECOMMENCERA 

a 852? ""; :REMF2 

"'ENTER' POUR CONTINUER 
CLS:REM96 

DESSIN DE LA POMPE ET 
PRINT a 448? "RESERVOIR B" 
PRINT a 1010? "RESERVOIR A":REMD5 
FOR X=40 TO 55 : SET(X735) : NEXT X:REMA5 
FOR X=66 TO 82 : SET(X735) : NEXT X:REM93 
FOR Y=35 TO 45:REMA0 
SET(557Y) : SET ( 66 ? Y ) ! REM1 1 
NEXT Y:REME9 



REM1B 



10 



FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 



Y=19 
Y=15 
X = 40 
Y=15 
Y = 19 
X = 5 



TO 
TO 
TO 
TO 
TO 
TO 



35 
35 
82 
25 
25 
35 



Y = 24 
X = 30 

Y = 40 
X = 30 

Y = 40 



36 
90 
47 
90 
47 

ENTREE DES 
A$=CHR$<191) : 
D$=CHR$(146) : 
G$=CHR$(131) : 



TO 
TO 
TO 
TO 
TO 



: BET(39rY) '• 
: SET(827Y) : 
STEP 2 : SET( 
: X=68-(2*Y) 
: X=76-(2*Y) 
SET(X?36) 
SET(57Y) 
SET(X747) 
SET (30 j Y) 
SETU747) 
SETOOiY) 




NEXT Y:REM68 
NEXT Y:REM64 
X ? 14 ) : NEXT X:REM64 
: SET(X7Y) : NEXT Y:REM15 
: SET(X7Y) : NEXT Y:REM08 
NEXT X:REM71 

SET(35iY) : NEXT Y:REM6B 
NEXT X:REM2C 

SET(907Y) : NEXT Y:REM28 
NEXT X:REM18 

SET(90»Y) : NEXT Y:REM14 
CODES GRAPHIQUES ET CHAINES 51 
B$=CHR$(129) : C$=CHR$ ( 132 > : REM7D 
E$=STRING$(13?A$) : F$=CHR$( 176) :REM3C 
H$=CHR$<128) : I$=CHR$ ( 140 ) :REM5F 
J$=STRING$(2l7H$) : K$=STR ING$ ( 5 , G$ ) :REM77 
L$=STRING*(4iF$)+STRING*(4iI$)+F*+F$+A*+STRING$(10iF$) :REMD3 



490 M*=STRING*(4jF$)+STRING*(AiG$)+F$+F*+A*+STRING*(10»F») :REMCA 
500 N*=STRING*(5iI*) : 0$=CHR$ (92 ) +H$+CHR* ( 92 ) +H*+CHR$ ( 92 ) : REM3A 
510 ' REMPLISSAGE DU VASE B 01 
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520 


FOR X=847 TO 975 STEP 64 : PRINT 3 X;E$; : 


NEXT X:REMAO 


530 


FOR X=865 TO 1003 STEP 64 : PRINT 3 X?E$; : 


NEXT X:REM77 


540 


REM:ANIMATION 1C 




550 


W=37 : V=38 : D=64 : Z=660:REMB0 




560 


GOTO 610:REMAA 




570 


PRINT a 341. "<--"; :PRINT 3 405 ;"<--";: REMF3 




580 


PRINT a 58470$; :REM4D * 




570 


PRINT a 128»"VIDANGE DU CORPS" ; :REM5A 




600 


PRINT 3 192; "ET REMPLISSAGE DE B";:REMCD 




610 


PRINT 3 732>STRING$(4>H$) ; :REMC6 




620 


PRINT a 732. K$; :REM2E 




630 


PRINT 3 798. "C "; :REME8 




640 


PRINT a 926. "C "; :REME5 




650 


PRINT a 818."ASPIRATI0N";:REM3C 




660 


PRINT a 554. J$; :REM05 




670 


PRINT a Z7L$;:REM3D 




680 


FOR X=Z-374 TO Z+10 STEP D : PRINT 3 X.A$; 


: NEXT:REM7C 


690 


FOR T=0 TO 150 ! NEXT:REM5E 




700 


IF Z=404 : GOTO 730:REM8B 




710 


PRINT a Z;J$;:REM17 




720 


Z=Z-64 : GOTO 620:REM0E 




730 


PRINT 3 341." " 5 : PRINT 3 584?" ";:REM77 


740 


PRINT a 128. J*; :REMB8 




750 


PRINT 3 192. J$; tREMAD 




760 


U=W-1 : V=V+l:REMCB 


1 tOr^ 


770 


FOR X=5 TO 35 : SET(X7W) : NEXT X:REMF1 


780 


FOR X=32 TO 54 : RESET(X 7 V) : NEXT X:REMB8 


790 


FOR X=67 TO 89 : RESET(X»V) : NEXT X:REM9E 




800 


IF V=46 THEN 970:REM4F 


810 


PRINT 3 732.STRING$(47H$) ; :REMFD 


820 


PRINT a 732. N*; :REM62 




830 


PRINT a 7987" "; :REM7A 




840 


PRINT a 926." "; :REM77 




850 


PRINT a Z7M$?:REM87 




860 


FOR X=Z-374 TO Z+10 STEP D : PRINT a X?A$; 


: NEXT X:REM6F 


870 


IF Z>=468 THEN PRINT 3 Z-627D*; : PRINT 3 3 


-597B$; : PRINT 3 


Z-56»D*; : PRINT a Z-527D*; : PRINT 3 Z-49.C* 


: PRINT 3 Z-467D 


$;:REM85 




880 


IF Z<596 THEN PRINT 3 Z + 69? "[ " , :REMD2 




890 


FOR T=0 TO 100 : NEXT T:REM46 




900 


PRINT 3 Z7J*;:REM58 




910 


PRINT a Z-3747H*; :REME4 




920 


PRINT a 8187J$;:REMFD 




930 


PRINT 3 5547"REMPLISSAGE DU CORPS" ; :REMC4 




940 


IF Z=660 : GOTO 570:REM94 




950 


Z=Z+64 : GOTO 810:REM27 




960 


FIN D' ANIMATION 3D 




970 


PRINT a 0»"VOILA UN BON TRAVAIL DE FAIT ! 


":REMA2 


980 


PRINT:REM77 




990 


PRINT"AVEZ-VOUS REMARQUE L' OUVERTURE ET LA 


FERMETURE DES CLA 


PETS ?":REMD7 




1000 FOR T=0 TO 2000 : NEXT T:REMA7 




1010 GOTO 60-.REM18 





.Roger Henrotay 
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logiciel 



Un traitement de texte 
tres beau, pas cher 



Du traitement de texte en BASIC ? 

Rien de comparable a SCRIPSIT ou autres WORD STAR 
utilises par les professionals du clavier. Ce pro- 
gramme est destine a ceux qui disposant, comme moi, 
d'une modeste iltiprimante, souhaitent utiliser leur 
machine pour taper de temps a autre des notes person- 
nellea, une lettre a un ami ou a leur perceptsur, ou 
meme faire part a TRACE de leur opinion sur ceci ou 
cela. . . ou mieux encore : ecrire un article ! 

Le mode d'emploi est resume dans la premiere page 
d'ecran. On peut le relire en cours d'execution par 
1' option "A" du menu. 

Quelques precisions sont necessaires. 

Les lettres majuscules sont en SHIFT et les minuscu- 
les en NON SHIFT, comme sur une machine ordinaire. 



La sonnerie est simulee par "bip" sonore (ligne 620). 
On a le cholx du nombre de caracteres par ligne et 
de lignes par page, et de la marge horlzontale sur 
1' imprimante. 

La modification d'une ligne se limite au deplacement 
du curseur, au remplacement de caracteres et a la sup- 
pression ou l'ajout de caracteres en fin de ligne. 

La position du curseur definit la fin de ligne lor3- 
que l'on frappe ENTER. 

On peut imprimer ou sauver sur diaque ou cassette une 
seule page a la fois. 

?ous les caracteres du clavier pejvent etre imprimes, 
nais attention, la sauvegarde du texte sur K7 n'ac- 
cepte pas les gulllemets. 

Enfin, la Vitesse de frappe peut etre superleure a 
celle admise par une machine mecanique ! 



1 

2 

3 



Configuration type '• mode 
cassette ou diskette 



les 1 ou 3? 
i mpr imante 



16 a 48 K 



5 ' 

6 ' 

7 ' — 
ID CL 
/65 : 
20 N = 
34) : 
30 S4 
TRING 
40 11 = 



MACHEC/BAS 07/82 - 
(C) 1983 TRACE et Ro3 



MACHINE A ECRIRE 
er Brousm i che 



50 
60 
70 
80 
90 
100 



IF 
C2 
IF 
IF 

IF 
I 



110 N 
120 I 
50: 
130 I 
TO 50 



140 
150 
160 
170 
180 
190 



100 I 



EAR 50 
DIM S 
: C2 
MA = 8: 
=STRIN 
$(8>8) 
: IF 
N = JL- 
■INKEY 
A<32 
A=91 
A>64 
F A>96 
= N+1 : 
F A=8 
REMB6 
F A=9 
:REM44 
F A=24 
A=26 
A=27 
A = 25 
A=10 
F A = 31 
F A=13 



: CLEAR MEM/3*2 : 
(ME+3) : C=STRING* 
="" : C4=CHR*(10) 
REM81 

G$(8725) : S3=STRI 
: C5=CHR$(138) : 
K2=l : M=N0-l:REM 
5 G0SUB 630:REM59 
$ : IF C2="" THEN 
OR N=JL THEN 120:R 
AND N<JL : N=N+1 : 
AND A<91 : C2=CHR* 
: C2=CHR$( A-32) :R 
G0SUB 220 : PRINT 
AND N>0 : PRINT C2 



DEFINT Ail 
(133," ") : 
: C9=" " : 



-N : DEFSTR C;S 

CS=C:REMEE 
JL=63 : JP=ME : 



FF 
FE 
FD 
FC 
FB 
FA 
F9 
: ME=MEM 

C3=CHR$( 



NG$(8732) : 
GOTO 820:RE 
42 



S1=STRING$(8724) 
MB0 



S2 = S 



60 ELSE A=ASC(C2):REM89 
EMC6 

PRINT CHR$(25)5 
(A+32) : GOTO 110:REMAD 
EM49 

C2; : GOTO 50:REMFC 
; : C2=C9 : G0SUB 220 : 



GOTO 50:REM6A 




AND N<JL 



N = N+1 



C2=C9 : PRINT C2; 



: N=N-1 : 
G0SUB 220 



GOT 
: GO 



AND 
AND 
AND 
AND 
AND 
AND 
GOTO 



N>7 PRINT S2; 
N>7 PRINT Si! 
N<JL-8 PRINT 
N<JL-8 PRINT 
N>0 PRINT CHR 



N=0 THEN 2! 

400=REM0E 



i0: 



: N=N-8 : 
: N=N-8 : 
S4; : N=N+S 
S3; : N=N+8 
$(24); : N= 
REMB3 



GOTO 50:REMEF 

GOTO 50:REME4 
: GOTO 50:REM70 
: GOTO 50:REM69 

N-l : GOTO 50:REMB1 
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210 GOTO 5Q:REM3C 

220 C=LEFT*(C?N-l)+C2+MID*tC>N+i) : RETURN : REM26 

230 PRINT "* IMPOSSIBLE ..." : RESUME 25Q:REM09 

2<t0 RESUME NEXT:RENEA 

250 ON ERROR GOTO : IF K2-1 : M = t1l:REME4 

260 PRINT M "/" JP "LIGNE(S) ENTREE(S) -- SUR ERREUR <BREAK> GOT 

250" : GOTO ?50sREMF4 

270 N0=1 : INPUT "RELIRE A PARTIR DE LA LIGNE NO 1 "?N0 : IF N0> 

M THEN 250:REM5E 

280 GOSUB 1140 = FOR K = NO TO M : IF K 1=1 PRINT STR$ ( K ) ! C5 ; : REM93 

290 PRINT S(K) :REM3C 

300 C2=INKEY$ : IF PEEK ( 1459 1 ) = 128 THEN 300:REMF0 

310 FOR J = l TO 100 : NEXT J : IF C2="S" THEN K=M:REMBE 

3^0 NEXT K : GOTO 250:REMSF 

330 PRINT "MARGE =" MA 5 : INPUT MA : GOSUB 1140:REM6B 

340 INPUT "PREPAREZ L'IMPRIMANTE PUIS <ENTER> "?C2SREM23 

350 FOR 1 = 1 TO M : LPRINT TAB (MA); : IF K 1= 1 LPRINT USING "###:" 

;i; :remdi 

360 LPRINT S(I) : NEXTI:REMF1 

370 C2=•" , : INPUT "FAUT-IL TERMINER LA PAGE PAR DES LIGNES BLANC 

HES (0/N) ";C2:REM63 

380 IF C2="0" : FOR I=M+1 TO JP : LPRINT" " : NEXT I:REM65 

390 GOTO 250:REM55 

^rii'i M = H+1 : S(M) =LFFT$( C>N) : C = CB:REM14 

410 IF LEN(S(M))=0 : S (M) =S ( M ) +" :REM9A 

420 IF Kl=l PRINT C5;STR*(M> ? sRENIB 

430 14=0 : PRINTC4? : IF K2=l GOTO 250:REMF0 

h40 IF M < J P THEN 50 ELSE PRINT "* PAGE PLEINE" : GOTO 250:REMA5 

450 INPUT' ; NO DE LA LIGNE A MODIFIER "?N0 : IF NO>M OR N0<1 THEN 

^50:REM85 

460 PRINT 3 (NO) : PRINT B ( NO ) ; CHR$ i 29 ) 5 CHR$ ( 14 ) ; : M1=M : MID*(C 

?1)=S(N0) : GOTO 4Q:REMC2 

470 INPUT "INSERER APRES LA LIGNE NO '*!N0 : IF M>JP-1 OR NO>M OR 

N0<0 : M1 = M : GOTO 250:REM96 
480 FOR I=M TO NO STEP-1 : S(I+1)=S(I) : NEXTI : M=M+l:REM76 
V?0 PRINT S(NO) : M1=M : NO=NO+i : PRINT CHR$(14); : GOTO 40:REM 
02 

500 PRINT "LIRE UN TEXTE SUR DISK " : REM'??' 

510 ON ERROR GOTO 230 : _INEINPUT "NOM DU FICHIER : ";N0$:REM4A 
520 ON ERROR GOTO 0:REMFA 
5J0 OPEN "I'MjNO* : I=0:REMEB 
540 1=1+1 : IF EOF(l) GOTO 560:REM21 



SO LINE1NPUT#1?S( I ) 



GOTO 540:REME6 



560 i1=I-l : CLOSE : JP = M : PRINT : GOTO 25Q:REM44 

570 PRINT "SAUVER LE TEXTE SUR DISK":REMB8 

580 ON ERROR GOTO 230 : LINEINPUT "NOM DU FICHIER : ";N0$:REMO3 

590 ON ERROR GOTO 0:REMB4 

600 OP L N '•' " i 1 7 N0$ : R EM27 

610 FOR 1 = 1 TO M : PR INT# 1 , S ( I ) : REM69 

620 NEXT I : CLOSE : PRINT : GOTO 250:REM98 

qJu I- OR j = l TO 15 : 0UT255-1 : 0UT255?0 : NEXT J : RETURN:REM18 

640 INPUT "NO DE LIGNE A SUPPRIMER ";N0 : IF NO>M OR N0<1 THEN 2 

50:REMDD 

650 PRINT Si NO) : ZZ*=' ; ' : : INPUT "SUPPRIMER (0/N) ";ZZ$:REM58 
6q0 IF ZZ$="0" : FOR I=N0+1 TO M : S(I-1)=S(I) : NEXT I : M=M-l: 
REM83 

670 GO ! 250:RFM3C 

680 PRINT "LIRE UN TEXTE SUR K7" : INPUT "K7 -- PLAY — <ENTER> 
: \ll% '■ i=-2;HEMB5 
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IF S(I+2) = "dQi3" : 11=1 + 



V=( l+INT<M/3) )*3-M:RE 



FOR 1=1 TO M + V STEP 3 



PRIN 



690 ON ERROR GOTO 240 : CMB"T":REM93 

700 ON ERROR GOTO 0:REM46 

710 1=1+3 : INPUT#-i>S(I)fSCI+l)jS(I+2) i 

2 : GOTO 7 30: REM 11 
723 GOTO 710-.REM09 

730 M = M-1 : IF S(M)="aaa" THEN 730SREMBF 
740 JP = M : PRINT : GOTO 250: REM 14 
750 PRINT "SAUVER LE TEXTE SUR K7":REMAD 
760 INPUT "K7 — RECORD — <ENTER> ";ZZ$ 
MEF 

770 ON ERROR GOTO 240 : CMD"T " : REH42 
780 ON ERROR GOTO 0:REMF5 

790 FOR 1=1 TO V : S(M+I)="aaa" : NEXT I 
:REMAA 

SOQ PRINT*- 1jC3+S< I )+C3 7C3+S< I +1 ) + C3 ? C3+S ( I+2)+C3iREM2F 
810 NEXT I : PRINT : GOTO 25Q:REMB9 

820 CLS : PRINT TAB (16) "MACHINE A E C R I R E 
T:REMED 

830 PRINT "MEMO :";ME "LIGNES MAXIMUM PAR PAGE":REM7F 
840 PRINT CHR$(94); " OU " CHR*(93> " = EFFACER 1 (8 EN SHIFT) C 
ARACT. DIRECTION FLECHE" : REM1B 

850 PRINT "[ OU " CHR$(92) " = AVANCER OU RECULER LE CURSEUR DE 
I (8 EN SHIFT) CAR.":REMBA 

860 PRINT "<ENTER> OBLIGATOIRE EN FIN DE LIGNE ( 132 CAR. MAXI ) 
":REMOO 

870 PRINT "POUR UNE LIGNE BLANCHE TAPEZ <ENTER> " : REM9B 
880 PRINT "POUR TERMINER UN TEXTE TAPEZ <CLEAR> EN DEEUT DE LIGN 
E":REM5A 
890 PRINT "EN COURS DE LECTURE; <ESPACE>=GEL AFFICHAGE, <S>=STOP 

LECTURE" : PRINT:REM7B 
900 PRINT "A - MEMO , N = NOUVEAU TEXTE ? C = CONTINUER TEXTE ? 
R = RELIRE":PEM08 

910 PRINT "M = MODIFIER 7 I = INSERER i S = SUPPRIMER 7 PR = IMP 
RIMER":REME3 

920 PRINT "LB = LIRE UN TEXTE SUR DISOUE ; SD = SAUVER LE TEXTE 
SUR DISQUE":REMCE 

930 PRINT "LK = LIRE UN TEXTE SUR K7 , SH = SAUVER LE TEXTE SUR 
K7 ; F=FIN":REMBC 
940 GOTO 250:REN2D 
950 N=0 : Cl="" : INFUT " ( A 7 N 7 C ? R , M ; I ? S ; PR ? LD i 

SD ? LK 7 SK 7 F ) ";Cl:REMC5 
960 K2=0 : K1=0 : IF C1="A" PRINT : GOTO 830:REM55 
970 IF C1="N" GOSUB 1140 : GOOUB 1100 : PRINT CHR$(14); 
0:REME6 

980 IF C1="C" GOSUB 1140 : GOSUB 1110 
0:REME5 

990 IF C1="PR" THEN 330:REM01 
1000 IF C1="M" : K2=l : GOTO 450:REM8F 
1010 IF C1="SD" THEN 570SREMF2 
1020 IF C1="LD" THEN 500:REMF6 
1030 IF C1="LK" THEN 680:REMDB 
1040 IF C1="SK" THEN 750:REMCC 
1050 IF C1="R" THEN 270:REM11 
1060 IF C1="I" : K2=l : GOTO 470:REM54 
1070 IF C1="S" GOTO 640:REM38 
1080 IF C1="F" : END:REMA8 
1090 GOTO 950:REM8F 

1100 PRINT "NOMBRE DE CARACTERES PAR LIGNE ="JL; 
STRING*(JL+1»32) : CS=C:REM6^ 
1110 IP=JP : PRINT "NOMBRE DE LIGNES PAR PAGE ="JP; : INPUT IP 



PRINT CHR$(14); 



GOTO 4 
GOTO 5 




INPUT JL 



C = 
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IF IP<=M AND C1="C" PRINT "* IMPOSSIBLE DE CONTINUER" : GOTO 11 
10SREM15 
1120 IF IP>ME PRINT "*" ME "LIGNES MAXIMUM 9VP" : GOTO 1110:REMB 



1130 JP=IP 
1140 C2="" 



PRINT "ECRIVEZ VOTRE TEXTE :" : RETURN:REM22 
INPUT "FAUT-IL NU11ER0TER LES LIGNES (0/N) "? C2 



F C2="0" Hl=l:REMA5 
1150 RETURN:REMEC 

Exemple de lancement (menu principal) 

M A C H 



I N E 



A 



E C R I R E 




MEMO : 167 LIGNES MAXIMUM PAR PAGE 

-» OU «- = EFFACER 1 (8 EN SHIFT) CARACT. DIRECTION FLECHE 

t OU ♦ = AVANCER OU RECULER LE CURSEUR DE 1 (8 EN SHIFT) CAR. 

<ENTER> OBLIGATOIRE EN FIN DE LIGNE ( 132 CAR. MAXI ) 

POUR UNE LIGNE BLANCHE TAPEZ <ENTER> 

POUR TERMINER UN TEXTE TAPEZ <CLEAR> EN DEBUT DE LIGNE 

LN COURS DE LECTURE; <ESPACE>=GEL AFFICHAGE? <S>=STOP LECTURE 

A = MEMO i N = NOUVEAU TEXTE i C = CONTINUER TEXTE ? R = RELIRE 
M = MODIFIER ; I = INSERER 7 S = SUPPRIMER 7 PR = IMPRIMER 
I_G - LIRE UN TEXTE SUP. DISQUE ; SD = SAUVER LE TEXTE SUR DISQUE 
I H = LIRE UN TEXTE SUR K7 , SK = SAUVER LE TEXTE SUR K7 ; F=FIN 
(J / 167 LIGNE (S) ENTREE (S) ~ SUR ERREUR <BREAK> GOTO 250 
' . A t N 7 C ; R i M ? I 7 S 7 PR 7 LD ? SD 7 LK ? SK ? F ) ? . 



. Roger Brousmlche 



bricolage 




Ouvrez votre modele 1 

sur le monde exterieur 



L' extension que nous vous proposons aujourd'hui de 
commencer a realiser se decompose en deux phases : 
un premier circuit imprime relie au BUS du TRS va 
d'abord vous permettre de "converser" en mode paral- 
lele sur 2k bits avec le monde exterieur grace a un 
controleur programmable tr-es puissant : le 8255 d' 
Intel. Cette prsmiere etape vous permettra pas exem- 
ple d'allumer das diodes "led", de lire des contacts 
ou de commander des relais. Bref, toutes sortes d'ap- 
plications en perspective ! Dans une prochaine etape, 
nous decrirons i'une de ces applications : un bruleur 
d'EPROM qui se raccordera a la premiere carte et qui 
vous donnera la possibilite d'ecrire vous-meme vos 
propres memoire3 EPROM ou de modifier celles qui exis- 
tent (generateur de caracteres ou PROM BASIC par exem- 
ple). Pour 1' instant, voici deja le circuit imprime 
de la premiere carte que vous aurez tout le temps de 
realiser en attendant le prochain numero. Vous pou- 
vez pour cela utiliser du "film contact positif" pour 
prelever le cir;uit directement a partir de la revue. 
A bientot ! 



NOTA : Attention, 11 faut sur le circuit lire "Al" 
et non "AO" et reciproquement. 




, Josue Bonifas 
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essai logiciel 




NEWDOS 80 

version 2 : 
quoi de plus 

(i) 



Cet article s'adresse tout particulierement aux uti- 
lisateurs TRSDOS du modele 1 ainsi qu'a tous ceux 
qui se demandent ce que les disquettes apportent de 
plus par rapport aux cassettes. 

Les utilisateurs de TRSDOS trouveront ioi la descrip- 
tion d 'un systeme plus rapide. plus fiable, plus com- 
plet et qui offre des possibilites totalement nou- 
velles,. 

Les possesseurs de cassettes qui hesitent encore a 
elargir leur configuration, trouveront un resume des 
facilites offertes par les systemes a disquettes, 
dont les possibilites sont beaucoup plus etendues 
et l'acces aux fichlers plus rapide. 

Les possesseurs du modele 3, qui disposent d'un 
TRSDOS plus confortable, peuvent trouver dans NEWDOS 
80 un SED (Systeme d • Exploitation de Disquettes) ap- 
portant des avantages supplementaires en plus d'une 
compatibility avec les disquettes NEWD0S80 du modele 
1 . Bien que les modele 1 et 3 different par certains 
points (densite des disquettes par exemple), NEWDOS 
80 permet en effet de "transporter" facilement les 
programmes d'un systeme a 1' autre, ce qui n'est pas 
le cas avec TRSDOS. 

En passant d'une configuration cassettes a une con- 
figuration disquettes, on a le sentiment d 'avoir af- 
faire a un ordinateur tout a fait different, tene- 
ment plus rapide et plus facile a utiliser. Ceci est 
du au moins autant aux nouvelles fonctions apportees 
par TRSDOS qu'a la poaoibilite de atocker et de re- 
lire sans manipulations, les donnees et les program- 
mes en quelques secondes, au lieu de plusieurs minu- 
tes . 

NEWD0S80 Version 2 permet de faire un pas presque 
aussi sensible grace a l'accroissement de la vitesse, 
du volume du stockage et des extensions logicielles 
et materielles qu'll apporte ou rend possibles. 

Une syntaxe simplifiee facilite et accelere le dia- 
logue avec la machine . De nombreuses extensions lo- 
gicielles qui existaient sous forme de routines se- 
parees, ("driver" clavier avec antirebonds, minus- 
cules, repetition, interdiction de la touche Break, 
extensions du BASIC, chainage automatique de fonc- 
tions, etc...! existent dans NEWDOS80 de maniere 
standard. Nul besoin de s'occuper de leur chargement 
ou de la protection de la memoire. Cet ensemble est 
complete d'un certain nombre de programmes de servi- 
ce tels que : assembleur, copie de cassettes, etc. 

Ce SED est concu pour tirer parti de diverses pos- 
sibilites d' extensions materielles : disquettes a 



plus grande capacite de stockage, temps d'acces plus 
courts, double densite, double face, unite 8 pouces, 
horloge rapide, ou les minuscules deja nominees . 

Vojs decouvrirez peut-etre meme que les unite de 
disquettes que vous possedez sont capables de gerer 
jusqu'a 10 pistes (voire 11, 12 et pluo). De meme, 
elles peuvent souvent fonctionner avec des temps 
d'acces plus courts. Tandy, s'etant approvisionne a 
diverses sources pour ses disquettes, s'est contente 
d'un SED capable de fonctionner sur le standard le 
plus bas . 

COMPATIBILITE AVEC TRSDOS 



NEWD0S80 est capable d'executer directement les pro- 
grammes BASIC et de lire les fichiers TRSDOS ; les 
programmes ou routines assembleur ecrits pour le 
systeme de Tandy fcnctionnent a quelques exceptions 
pres, ou peuvent etre adaptes . 

La syntaxe et les fonction du TKSOOS et du BASIC 
associe restent pratiqueraent valides. Bien entendu, 
etant donne que NEVD0S80 se montre moins pointilleux 
sur la syntaxe et possede de nombreuses fonctions 
supplementaires cette compatibilite ne peut pas Jouer 
dans le sens NEWDOS vers TRSDOS, pour peu qu'on uti- 
lise les nouvelles possibilites offertes. 



DES UNITES DE DISQUETTES PLUS PUISSANTES 



NEWDOS80 accepte la connexion simultanee de diffe- 
rents types de disquettes, simple ou double face, 5 
ou 8 pouces, ces dernieres necessitant toutefois 
l'adjonction d'un circuit special (voir "mapper", 
TRACE n° 1). Le nonbre de pistes qui peuvent etre 
traitees va de 35 a 80, ce qui permet 1' utilisation 
de tous les lecteurs de disquettes actuellement pro- 
poses . 

Nous avons signale que certaines unites 5 pouces 
peuvent fonctionner plus rapidement que prevu sous 
TRSDOS, cette variation de vitesse provient de deux 
facteurs, le temps de mise en route du moteur et le 
temps de deplacement de la tete de lecture . Le temps 
de mise en route d'une demi-seconde prevu par NEWDOS 
80 s'avere suffisant dans la plupart des cas, sinon 
vous pouvez revenir a une seconde comme pour TRSDOS. 
Le temps de deplacement "piste a piste" de la tete 
est normalement fixe a 40 ma . Avec NEWD0S80 vous 
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pouvez. tenter 20 ms . Si tout ve bien essayez 10 ms . 
S'il n'y a toujours pas de probleme, faites un der- 
nier test avec 5 ms pour verifier si vos unites de 
disquettes peuvent fonctionner a la Vitesse la plus 
elevee prevue. 



LA DOUBLE DENSITE 



Percom, LNW et d'autres societes proposent des car- 
tes double den3ite -(notarament Tandy aux Etats-Uhis ! }- 
Ces cartes d'enfichent dans 1' inter face d' extension 
a la place du circuit controleur de disquette d'ori- 
gine ; ce circuit est ensuit reinsere sur la carte 
double densite pour maintenir la possibilite de trai- 
ter des disquettes simple densite . Ces cartes sont 
generalement proposees avec des modifications pour 
TRSDOS ou avec un SED special . Mais si vous etes de- 
ja habitue a NEWD0S80 ou si vous voulez evoluer vers 
ce systeme, aucun probleme : 11 accepte la double 
densite. Si vous avez choisi la carte 5/8 de LNW vous 
pouvez meme faire fonctionner des unites 8 pouces en 
double densite. Attention, cela necessite une modi- 
fication qui n'est pas fournie avec la carte. 

Une carte double densite augmente le volume stocke 
sur une disquette de 80% et reduit le temps de lec- 
ture dans la mime proportion. Elle coute environ la 
moitie du prix d'un drive 35 ou 40 pistes et econo- 
mise des disquettes, c'est assurement une bonne af- 
faire . 

En utilisant les possibilites de NEWDOS au maximum 
il est possible de mettre 2.800 K en ligne qui sont 
a comparer aux 320 K du TRSDOS. 

LE "DRIVER" MINUSCULES 



Une amelioration connue et meme assuree par Tandy 
est l'acces aux caracteres minuscules. Elle necessi- 
te une modification du materiel et 1 'utilisation 
d'une routine logicielle, le "driver" ecran de la 
ROM n'etant pas prevu pour afficher les minuscules. 
Tandy ou d'autres sources vous fournissent un "dri- 
ver" qui est a charger en memoire haute apres pro- 
tection de celle-ci . NEWD0S80 possede un driver mi- 
nuscules incorpore qui s' active automatiquement : 

- si vous en avez decide ainsi a la generation de 
votre systeme 

- 3i votre ordinateur possede 1' adaptation minus- 
cules et si elle est activee (dans le cas d'une 
modification controlee par un interrupteur) . 

Quand ce "driver" est actif, 1 'ensemble ecran/cla- 
vier fonctionne comme une machine a ecrire, il Taut 
appuyer sur Shift pour avoir les majuscules. Si ne- 
cessaire, on peut bloquer 1' ensemble en majuscules 
ou desactiver completement ce driver. Le cas echeant 
NEWD0S80 accepte les commandes DOS en minuscules. 



PLUS VITE, TOUJOURS PLUS VITE ! 



Une autre amelioration accepte 
1 'augmentation de la vitesse d 
seur . En effet le microprocess 

coeur du TR300 peut fonctionne 
rieure au 1.77 Mhz prevu par 1 
modele 1 . Vous trouvez meme a 
machine les circuits necessair 
te modification. II y a en fai 
qui sont couraroment effectuees 
un ordinateur qui calcule plus 



e par NEWD0S80 est 
'execution du proces- 
eur £80 qui forme le 

r a une vitesse supe- 
es constructeurs du 
1'interieur de cette 
es pour effectuer cet- 
t deux modifications 
par ceux qui veulent 
vite que son ombre. 



La plus simple perrr.et une augmentation de la fre- 
quence a 2. 66 Mhz ce qui augmente la vitesse de fonc- 
tionnement de 50 %. Une autre modification un peu 
plus complexe, perir.et de doubler la vitesse du pro- 
cesseur en lui appliquant une frequence de 3-5*4 MhZ. 
Ces modifications fonctionnent parfaitement sous 
NEVDOS80 meme pour les acces disquettes. Pour lire 
des cassettes ecrites en 500 Bauds il faut cependant 
revenir a la vitesse normale . Pas de probleme pour 
1' interface RS232 qui dispose d'une horloge propre . 
On trouve dans le commerce, differents kits qui per- 
mettent ces augmentations de vitesse. 



LES F0NCTI0NS DE NEWDOS 80 



NEWD0S80 offre un r.ombre considerable de fonctions 
qui n' existent pas dans TRSDOS. D'autres sont pre- 
serves dans les deux systemes, mais certaines de 
celles-ci sont plus completes dans NEWD0S80 et /ou 
acceptent une syntaxe plus simple. II existe cepen- 
dant 2 fonctions TRSDOS absentes dans NEWD0S80. Pour 
Stre complets, commengons notre inventaire pour ces 
deux-la . 

TRACE 



Cette I'onction affiche sous TKSUOS, a une vitesse 
qui les rend illisibles, les adresses d 'execution 
tenues par le registre PC. Ces adresses sont rele- 
vees et affichees a chaque interruption, nul ne peut 
dire combien d' instructions ont ete executees entre 
deux adresses affichees. Neanmoins, le fait qu'elles 
continuent a apparaitre a 1 'ecran permet de savoir 
que 1' ordinateur n'est pas en panne ; l'adresse sur 
laquelle 1 'ordinateur se bloque eventuellement peut 
apporter une information utile (bien que parfois 
trompeuse dans le cas d'un "plantage" du sous-pro- 
gramme de gestion de l'interruptior. . . . ) . 

Sous NEWDOS80 vous pouvez faire clignoter le curseur 
pour indiquer que i'ordinateur est toujours en vie. 

Quant a la trace, le monlteur DEBUG de NEWD0S80 per- 
met l'utilisation d'un pas-a-pas veritable. 



DEVICE 



Cette fonction du TRSDOS affiche a 1 'ecran le nom 
des organes peripheriques de I'ordinateur : KI = 
clavier, DO = ecran, PR = imprimante. On se deraande 
toujours a quoi sert ce message qui ne varie jamais 
quels que soient les peripheriques connectes. 



LES FONCTIONS COMMUNES AUX DEUX SYSTEMES 



Visiblement 1' absence des deux fonctions ci-dessus 
ne represente pas une perte irreparable. Voyons main- 
tenant les manieres differentes dont sont traitees 
les fonctions presentes dans les deux systemes . 



AUTO 



La commande AUTO de TRSDOS n'accepte qu'un parametre . 
Sous NEWD0S80 plusieurs ordres, Jusqu'a 31 caracte- 
res, sont possibles. Ceci permet de charger plusieurs 
routines puis un programme principal, ou de charger 
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le BASIC et de demarrer automatiquement avec un pro- 
gramme Menu. II est meme possible d'executer des se- 
quences de JCL ( Lang age de controle des Enchaine- 
ments) a l'aide des fonctions CHAIN ou DO que nous 
verrons plus loin. 



ATTRIB 



Le NEWD0S80 accepte toutes les options d'attritut de 
fichier du TRSDOS et ajoute quelques possibilites 
supplementaires telles que la permission ou 1' inter- 
diction d'etendre ou de reduire la taille d'un fi- 
chier ou la disposition d'un indicateur de mise a 
jour. 

BASIC2 



Cette fonction s'avere en tous points identiques 
dans les deux systemes . 

CLOCK, VERIFY 



La syntaxe NEWD0S80, CLOCK Y ou N semble plus simple 
que CLOCK (ON) ou (OFF) utilisee dans TRSDOS. 



Par ailleurs la fonction COPY de NEWDOS80 est plus 
complete et offre les possibilites suivantes : 



COPY 



La fonction COPY de TRSDOS pernet la copie d'un fi- 
chier vers un autre avec la mention complete du nom 
du fichier d' entree et du fichier de sortie. Scus 
NEWDOS80 ei les deux noma sont identiques, on peut, 
au contraire, ecrire : 

COPY FILE/EXT: TO : 1 
pour recopier le fichier FILE/EXT de la disquette 
aur un fichier de meme nom exlstant ou a creer sur 
la disquette 1. 

- copie simple fichier a fichier ; 

- copie avec un seul drive, de fichiers entrs 
differentes dlsquettes dor.t eventuellement au- 
cune ne contient un systeme ; 

- copie complete d'un disque par pistes (remplace 
le BACKUP) mais fournit ur. grand nombre d' op- 
tions supplementaires ; 

- copie complete d'une disquette, par fichier 
pour faire des copies entre disquettes de types 
differents ; 

- copie de series de fichiers selectionnnes auto- 
matiquement sur des criteres tels que : 

. fichiers systeme 

. fichiers utilisateur 

. fichiers avec une extension donnee 

. fichiers ayant subi une mise a jour 

. fichiers dont les noms sont inscrits dans 
le fichier X 

.• fichiers dont les noms ne sont pas ins- 
crits dans le fichier X 

. copie selective conditionnee par une re- 
ponse de l'operateur qui repond Y(es) ou 
N(o) pour chaque fichier. 



DATE, TIME 



Sous NEWDOS on peut en plus, lcrsque ces commandes 
ne sont pas suivies d'une date, ou d'une heure, ob- 
tenir l'affichage de la date (ou de l'heure) du mo- 
ment . 



DEBUG 



Cette fonction permet dans les deux systemes d'ap- 
peler le moniteur langage machine . Sous NEWDOS80 la 
fonction de la touche BREAK n'est pas affectee, le 
moniteur est active ici par l'appui simultane sur 
le3 touches 1. 2 et 3. En plus de cela, le DEBUG de 
NEHDOS80 possede des formats d'affichage plus cora- 
prehensibles, des fonctions d'edition plus pratiques, 
des fonctions supplementaires de trace, de recherche 
et d'acces disquette... 



DI3 



Cette commande peut etre tapee avec ou sans les deux 
points avant le numero de disquette. Les parametres 
ne demandent pas a etre mis entre parentheses. II 
existe des options supplementaires. DIR 80, utile 
pour ceux qui ne pcssedent qu'un drive, permet de 
mettre une disquette sans systeme a la place de NEW- 
D0580 pour en afflcher le catalogue. Le parametre 
"P" permet de lister le catalogue des fichiers sur 
1 'imprimante . 



DUMP 



Cecte fonction aussi est plus complete sous NEWD0S- 
80. II est possible de "dumper" une copie exacte 
d'une zone memoire sur disque. Un parametre "reloca- 
te address" permet de specifier une adresse de char- 
gement differente de celle affectee au programme. 

Quant a la syntaxe, jugez vous-memes : 

TRSDOS : DUMP nom (START=X' aaaa', END=X' bbbb ' , 
TRA=X' CCCC') 

NEWDOS : DUMP nom, aaaaH, bbbbH, ccccH 

Sous TRSDOS les adresses doivent obligatoirement 
etre exprimees en hexadecimal. NEWD0S80 admet en 
plus la forme decimale. 



KILL, LIB, LOAD, RENAME 



Aucune difference entre les deux systemes, 



LIST, PRINT 



Ces commandes permettent avec NEWDOS80 la specifica- 
tion d'un numero de ligne de depart et/ou d'un nom- 
bre de lignes a lister, ceci independamment du fait 
que les lignes soient effectivement numerotees ou 
non . 



PROT 



Sous NEWDOS80 cette commande permet en plus des 
fonctions presentes sous TRSDOS, le changement du 
nom ou de la date d'une disquette. Pour cette com- 
mande aussi, NEWDOS80 renorice a 1 'utilisation de 
parentheses pour delimiter les paranetres, ce qui 
reduit le nombre de caractere a f rapper et par la, 
le risque d'erreurs. 

La suite dans le prochaln numero 



Wolfgang Lauter 
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bricolage 




Un vu-metre 




regler 
votre magnetophone 





50 K 



GE 



JOCK 



5 MF 





■^^ 111 ■ 



+ 



50/100 
m i c r os 



J 



GE 



%_ - 




Les utillsateurs de cassettes sur modele 1 ne me con- 
trediront pas : la lecture d'un programme ou de don- 
nees par le magnetophone est souvent une operation 
aussi aleatolre qu'un RND(X)...! 

Apres chaque echec, commence le jeu des enigmes : le 
niveau etait-11 trop bas 7 ou trop eleve ? les tetes 
etaient-elles propres ? 

Pour y voir clalr, il est indispensable de disposer 
d'un appareil de mesure du niveau communement appele 
VU-METRE. 

Le petit circuit schematise ci-dessous affiche sur un 
microamperemetre, le niveau crete-a-crete des impul- 
sions a la sortie 'EAR' du CTR80 (ou similaire). 

Afin d' assurer la transmission simultanee du signal 
de sortie vers i'ordinateur et vers le VU-METRE, il 
laut prealablement connecter a cette borne 'EAR', un 
adaptateur en X pour jack de 3.5 m/m. 



Les 2 diodes marquees GE dans le schema sont des dio- 
des au germanium de type quelconque : 0A90, AA 119, 
AAZ15, 1N60, etc. 

Ne pas utiliser des diodes au silicium ; leur poten- 
tiel de contact est trop eleve. 

Pour etalonner 1 'appareil, il suffit de faire tourner 
le programme suivant, sans cassette, mais avec le ma- 
gnetophone sur RECORD (il faut soulever manuellement 



le cliquet d' Interdiction d'ecriture). 

id PRINT #.-1,; : GOTO 10 

Ensuite, regies la resistance variable de 50K pour 
une deviation de 1' aiguille du microamperemetre egale 
a 60 % du fond d'echelle. Appuyez ensuite sur < BREAK). 

Vous pouvez maintenant faire CLOAD sur un programme 
quelconque, et regler le volume pour retablir la meme 
deviation ct dco cct instant, vous aurez la solution 
des enigmes du debut ! 

Vous remarquerez que le niveau de lecture n'est pas 
aussi stable que celui d'ecriture, loin s'en faut. 
Des fluctuations sont essentiellement fonction de la 
qualite de la bande utilisee. 

En general, le modele I accepte des variations de ni- 
veau de »/- 6dbs autour du niveau nominal de 2.2volt8 
crete-a-crete, c'est-a-dire qu'll n'y a pas perte de 
donnees tant que 1' aiguille ne descend pas en dessous 
de 30 % du fond d'echelle. 



Vous compenserez les fluctuations par un recentrage 
du volume, ce qui vous permettra de recuperer des 
programmes auparavant lllisibles. 

Plus important encore, vous disposez maintenant d'un 
veritable banc d'essai pour le controle de qualite 
de bandes d'origines diverses... Je vous garantis des 
surprises ! 



.Roger Brousmiche 
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utilitaire 



Des ouis pour votre 
programmation 



Vous avez ete nombreux a nous reclamer le programme 
BASPY, eh bier voici pour commencer sa documentation 
(il faut bien commencer par quelque chose !) en at- 
tendant sa llste dans le prochain numero. Toutefois, 
les lecteurs ayant commandes la disquette TRACE nu- 
mero 5 n'auront pas a attendre plus longtemps puis- 
que le programme y figure deja. 

BUT DU PROGRAMME 



BASFY (contraction de : BAsic SPY ou espion BASIC) 
est un programme ecrit en LANGAGE MACHINE (bien que 
charge comme un programme BASIC standard) permettant 
de disposer instantanement par un code clavier d ' un 
certain nombre de FONCTIONS utiles : 

. DUMP memoire sous forme hexadecimale et ASCII, 

defini par deux bornes, 
. CONVERSION decimal/hexa et hexa/decimal, 
. EDITION memoire ( lecture/ecriture) , 
. RECHERCHE entre deux bornes de la memoire, d'une 

configuration exprimee sous forme d'une chalne 

hexa ou ASCII, 
. RETOUR au BASIC au point EXACTEMENT interrompu. 

CONFIGURATION 



De part sa constitution, BASPY est auto-protege (pla- 
ce avant le buffer BASIC dans la memoire) ce qui per- 
mit Ue laisaer llbre l'espace s'etendant jusqu'en fin 
de memoire (pas de MEMORY SIZE a definir) et d'evlter 
ainsl la multlpliclte des versions (16K, 32K et 18K) 
sur raodele 1 comme sur modele 3- 

De meme en version disque, le programme lors de son 
chargement s'implante autoraatiquement en fonction du 
nombre de buffers reserves aux fichiers disque et est 
compatible avec les differentes versions actuelles 
de DOS : TRSDOS, NEWDOS, NEWDOS-80 et LDOS. 

QUELQUE SOIT VOTRE CONFIGURATION (CASSETTE, DISQUET- 
TE, TAILLE MEMOIRE, SYSTEME D'EXPLOITATION) , IL N' E- 
XISTE QU'UNE SEULE VERSION DE BASPY... 



CHAMP D' OPERATION 



Ce programme qui peut coexister en permanence avec 
1' interpreteur BASIC, est destine a faciliter la mi- 
se au point des programmes en fournissant un LIEN di- 
rect avec la memoire, et peut se reveler etre un ou- 
tll didactique permettant de mieux saisir les echan- 
ges entre le BASIC et la machine. 

Bien sur, il est tou jours possible de programmer en 
BASIC sans savoir exactement ce qui se passe dans la 
memoire de l'ordinateur ! Ce programme s'adresse a 
celui qui veut en savoir plus... 

Prenons quelques exeraples : 

10 A$ = "BONJ0UR" : fl$ = A$ *■ "MONSIEUR" 

Ou se trouve locallsee la cha£ne "BONJOUR MONSIEUR" 



en memoire ? L'ordre recherche de BASPY fournira la 
reponse. 

20 A$~ "*•************** ****" 

SI cette chalne est destlnee a recevoir une routine 
blnaire (generation d'un son, par exemple), les co- 
des correspondants pourront y etre places facllement 
par BASPY (fonctions Dump recherche et edition) , sans 
devoir utiliser pour cela la technique des POKE, DATA 
et VARPTR. 

Nous savons que le debut du buffer BASIC est pointe 
par l'adresse memoire 40A4/40A5. Mais combien cela 
fait-11 en decimal ? Vous avez specifie un "MEMORY 
SIZE" de 42000, par exemple. Combien cela fait-il en 
hexadecimal ? La fonction conversion vous donnera ln- 
mediatement ces reponses. 

Lorsque vous frappez la ligne : 20 PRINT A$ : GOTO 10, 
savez-vous comment ce3 informations sont codees dans 
le buffer BASIC ? La fonction dump vous renseignera 
sur le champ. 

MODE DE CHARGEMENT DU PROGRAMME BASPY 



Sous BASIC, f rapper la commande de chargement : 

CLOAD (en version cassette, suivi de : RUN) 
RUN "BASPY/BAS" (en version disque) 

Si vous essayez de LISTER le programme (avant le RUN), 
vcus verrez un "tas de choses bizarres" sur l'ecran... 
Cela est tout-a-falt normal et est du a la nature 
mixte (binaire/BASIC) du programme. 
Si le programme est correctement execute, l'ecran 
dcit s'effacer et le message : READY doit apparaltre. 
A partir de ce moment, vous pouvez charger un autre 
programme BASIC en memoire, et travalller normalement. 



AFPEL BASPY 



A n'importe quel instant, que ce solt pendant l'exe- 
cution d'un programme BASIC, pendant son LISTage ou 
au niveau 'READY', il suffit d'appuyer sur les tou- 
ches SHIFT et M (ou m ai votre systeme possede les 
minuscules) pour se 'connecter' au programme BASPY. 
Celui-ci affiche alors un message de tltre suivi de : 



reponses sont possibles ( en 



COMMANDE ? 

A cette question, six 
majuscules) : 

D (dump) 

C (conversion) 

E (edition) 

R (recherche) 

D (retour BASIC au point intorrompu) 

Q (retour BASIC avec deconnexion de BASPY) 

Les deux dernieres reponses ne provoquent aucun affl- 
chage, et le controle est rendu a 1 ' interpreteur BA- 
SIC au point interrompu. Les commandes D, C, E et R 
provoquent. l'affichage de la lettre correspondante 
suivi d'un espace. 
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FONCTION DUMP 

Une fots selectionnee , cette fonction attend une ou 
deux adresses exprimees sous forme hexadecimale (de 

a FFFF) et separees entre elles par un espace ou 
une virgule, le tout termine par la touche ENTER. 
Exemples : 

D 1O0(ent.pr) : dump hexa/Ascii de la zone memoire 

comprise entre les adresses et 100 
(hexa). 

D 10km enter : dump memoire a partlr de l'adresse 
40AJI. 

(La touche ' f leche a gauche' peut etre utilisee pour 
corrlger une erreur de frappe). 

Dans le second exemple, si l'on ne desire afficher 
qu'une seule ligne, il suffit de terminer la comman- 
de par la touche 'fleche en bas' au lieu du 'enter' 
habituel. 

En cours d'affichage, le premier appui sur la barre 
ESPACE provoque 1' arret du dump. Chaque appui supple- 
mentaire affichera la ligne suivante. Un appui sur 
'ENTER' relance le dump de facon continue. Un appui 
sur 'BREAK' force un retour au niveau 'COMMANDE V . 

Dans la zone ASCII du dump (partle droite), les codes 
non-imprimables sont remplaces par un point < . ) . 

FONCTION CONVERSION 



Cette fonction attend une valeur hexadecimale ou de- 
cimale pour la converter dans la ha.sF* opposee. Afin 
de distinguer 1 'hexadecimal du decimal, cette dernie- 
re representation doit etre precedee du signe '■►'- 
Exemple : 



C EA60 
C +60000 



donne la valeur decimale 60000 
donne la valeur hexadecimale EA60 



Les valeurs hexadecimales seront comprises entre 
et FFFF alors que les valeurs decimales seront com- 
prises entre et 65535. 

FONCTION EDITION 



Cette fonction attend une valeur d'adresse exprimee 
sous forme hexadecimale. Apres appui sur la touche 
'enter', cette adresse est afflchee suivie de l'cctet 
hexadecimal contenu a cet emplacement. 
L' appui sur la touche 'enter' ou 'fleche en bas' pro- 
voque l'affichage de l'adresse suivante et de son 
contenu. 

Dans le cas oil l'une de ces touches est precedee de 
1 'entree d'une valeur hexadecimale sur un octet, cet- 
te derniere vient remplacer la valeur affichee, a 
condition que cela soit possible (memolre vive). 



La touche 'break' interrompt le mode edition et pro- 
voque un retour au niveau 'COMMANDE ?' . 

FONCTION RECHERCHE 



Cette fonction attend trois valeurs qui sont succes- 

sivement : 

l'adresse memoire hexa de debut de recherche 

l'adresse memoire hexa de fin de recherche 

la valeur a rechercher dans la zone ainsi definie. 

La valeur a rechercher est une chaine (limitee a 30 
caracteres) et expriisee sous forme hexadecimale (nom- 
bre pair de digits) ou ASCII. Dans ce dernier cas, 
la cnaine devra etre entouree des caracteres '"'. 
Exemples : 

(recherche d'un texte dans 
la ROM de 1' interpreteur ) . 
(recherche d'une sequence 
donnee dans 1' espace 1000 a 
8000). 



R ?FFF "MEMORY SIZE" 
R 4030 8000 C3CD2«3E2 



Cette fonction affichera toutes les adresses compri- 
ses dans 1' espace defini, contenant la chaine recher- 
chee. Comme pour la fonction dump, il est possible 
d'arreter l'affichage en pressant la barre d'espace, 
et de le continuer en pressant sur 'enter' . La tou- 
che 'break' a le meme effet que precedemment . 

F0NCTI0NS DE RETOUR AU BASIC 



Tl y en a rieux : B et Q. La premiere permet un retour 
au BASIC au point interrompu, en se reservant la pos- 
sibility de revenir a BASPY par le code SHIFT M (ou 
m). 

La seconde ne permet plus de revenir dans BASPV qui 
est alors deconnecte (retour au DOS par exemple, dans 
le cas d'une configuration disque. 

AVERTI3SEMENT SUR LA SYNTAXE 



Afin de reduire l'espace memoire occupe par BASPY, 
certains controles portant sur la syntaxe des comman- 
des ne sont pas effectues. Soyez done prudents lors 
de 1' Introduction des commandes, et ne mettez pas 
plus d'espaces qu'il n'en faut. . . 

Et maintenant, essayez la chose suivante : 
Apres avoir lance BASPY, chargez un programme BASIC 
et llstez-le (commance LIST). Pendant la liste, ap- 
puyez sur SHIFT M. . . . Le controle est donne a BASPY. 
Executez une fonction quelconque, et retournez au 
BASIC : le listage du programme se poursuivra la ou 
il a ete interrompu. 



COMMANDE E 


A000 




EXEMPLES D' UTILISATION 


A000: 


00-41 









A001: 


00-42 








A002: 


00-43 








A003: 


00-44 








A004: 


00-45 








A005: 


00-46 








A006: 


00-47 








A007: 


00-48 








A00S: 


00- 








COMMANDE ? D 


A000 






A000: 


41424344 45464748 


00000000 


00000000 ABCDEFGH ........ 


AO'IQ: 


00000000 00000000 


00000000 


oooooooo 


A020: 


00000000 00000000 


00000000 


00000000 .............. 
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-> EA60 

COMMANDE ? C EAcD 

-> sOOOO 

COMMANDE ? C 4QA4 

-> 16548 

COMMANDE ? C +65535 

-> FFFF 

COMMANDE ? G FB 

-> 00251 

COMMANDE ? C ABCD 

-> ' f 3?Sl 

COMHANDE ? B 

>LI5T 

10 A* = "BONJOUR MONSIEUR" 

READY 

>_ 



COMMANDE ? D 40A4 

<tQA^: B16C00AD 5B1A6A6D ■bAi.OOOOG .L. . C . JM-JM. . 

COMMANDE ? D 6CB1 6D00 

6CB1: CD6C0A 00412420 D5202242 4F4E4A4F .L..A* . "BQNJO 

6CCQ: 55522Q4D 4F4E53t? 455552.22 DODQODOA OR MONSIEUR" 

6CD0: 008F41D4 32323736 37CA41D5 41CE3635 . . A . 32" 7 67 , A. A . 65 

qCEO: 35333600 QA6DQ50Q SFE52841 Cl., 1 322?D5 336. .M . » . . t A -2 J . 

6CFQ: 37CA363A 9541D5E5 284129CD 323536CF' ?.&! . A . » ( A) .256, 

6D00: E52841C0 31293ASD 34005&6D 0600B141 . \ A . 1 <: » 4 . xi 1 ' , . . * 

COMMANDE ? R FFFF "BASIC" 

0126 

3C4E 

3D 15 

4318 

5DB5 



fliain Plnaud 



Abonnez-vous 
a TRACE 



VOIR PAGE 4 



TRACE N° 5 - Avril 1983 - 47 



utilitaire 



Gardez trace 
de l'usage *C 
de vos variables 



REFERENCES CROISEES (Modele 2) 



Parmi les utilitaires dont les possesseurs de Mocele 
2 souhaiteraient disposer, figure en bonne place un 
generateur de references croisees. 

Cette fonction permet de rechercher et de lister les 
endroits oil sont appeles les numeros de llgnes et les 
variables d'un programme . 

On peut realiser une telle fonction selon 3 methodes 
dlfferentes : 

1 - Utilisation du Fichier Programme sous sa for- 

me ASCII ; 

2 - Utilisation du Fichier Programme sous sa for- 

me CONDENSEE ; 

3 — Analyse du programme residant en memoire. 

La methode 1 est moins tributaire que le3 deux autres 
des particular! t£s du BASIC concerne. 

Les methodes 2 et 3 sont plus rapides. 

La methode 3 est la plus logique bien qu'il faille 

ouvrir 2 fichiers. 

La methode 2 presentee ici neces3ite que votre Modele 
2 soit muni de la fonction PEEK. 

Le PATCH suivant vous donnera PEEK et POKE (en voua 
retirant OCT$ et NAME). En ce qui concerne OCT$ la 
perte est peu importante. Pour NAME, il existe des 
solutions de replacement. 

Pour tous details sur PEEK et POKE se referer aux 
manuels du Model I Level 2, ou a celui du Modele 3- 

Prccioono oimplcmcnt la oyntaxc dc base : 

PEEK (adresse ertiere d'un octet), valeur ASCII con- 



tenue 










PATCH 


BASIC 


A = 6?F3, 


F=AFCD876l, 


C=CDDD3CD5 


PATCH 


BASIC 


A=67F7, 


F=C5CD7l66, 


C=E72CCDEA 


PATCH 


BASIC 


A=67FB, 


F=E7t1E753, 


C=3CD1 12C9 


PATCH 


BASIC 


A=67FF, 


F=E3011EOO, 


CsCD5D447E 


PATCH 


BASIC 


A=6&03, 


F=09WD, 


;=C3FB3A 


PATCH 


BASIC 


A=26FB, 


F=CE«1«D, 


C=D0UF4B 


PATCH 


BASIC 


A=2A05, 


F=CF13512l|, 


2=D045 i «5 1 tB 


PATCH 


BASIC 


A=5ADB, 


F=CD8A«E, 


C=C3FF67 



Une fois ce PATCH fait, il ne reste plus qu'a reco- 
pier le programme REF/BAS et a le stocker sous for- 
me ASCII. 

On l'appelle ensuite par "MERGE" a la fin du program- 
me concerne et on le lance par RUN60000. 

Notons que REF/BAS est capable de fournir sa propre 
reference croisee. On peut, soit faire un "RENUM", 
soit a la ligne 60030, remplacer (en memoire, de pre- 
ference) 60000 par 65000. 



LE PROGRAMME 



Le programme presente a pour objet d'ecrire sur dis- 
quette des enregistrements de 12 octets convenable- 
ment renseignes et formattes. Le fichier ainsi obte- 
nu est ensuite repris par un programme de tri <-■(. un 
programme d' edition. 

Cette facon de proceder permet le traitement de gros 
programmes. Le format de l'enregistrement est illus- 
tre par les exemples suivanta : 



pi . . .60070. . 

AD$ 150-T 

ZZ*( ) 15000.. 
RE1O15600-T 



(-T 3ignifie 



variable longue 
(ADEMAIt) tronquee) 



POINTS PARTICULIERS 



Le programme REF/BAS aait di3tlngucr loo dlfferentes 
variables figurant dans une ligne comme celle-ci : 

100 PRINTAS"B0NJ0UR"AD$AD"T0T0"B I 

En effet toute variable est "fermee" par un aigne 
special, c'est-a-dire autre que lettre ou chiffre. 

L'instruction FIELD presente la caracteristique d'u- 
tiliser le mot AS qui n'est pas un mot reserve. On 
supprime done ces 2 premieres lettrea des noms de 
certaines des variabLes se trouvant dans le champ 
d" Influence d'un FIELD. 

Mais attention le test ne peut se faire sur la pre- 
sence des lettres AS en tete de variable. 
En effet ceci est licite : 

100 FIELD 1, (AS) AS AS$(AS) 

Ecriture retardee 



On r.e peut pas "ferraer" immediatement les variables 

M,!,%. 

En effet, elles sont susceptibles d'etre logiquement 

terminees par une parenthese gauch'e. L'ennui estqu'un 

certain nombre de blancs (ou assimiles) peuvent etre 

intercales. 

Ainsi ceci est licite : 



100 A D $ ( 


3 


)="BONJOUR 


200 PRINTA 




D$(3) 


Lignes referencees 







On les distingue des constantes numeriques, en posl- 
tionnant a la variable NU, lors du passage des ca- 
racteres reserves ad hoc (Notons que "RESTORE No de 
Ligne" fonctionne, bien que le manuel n'en parle pas). 

Utilisation du Buffer de Fichier 
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Elle perraet d'eviter en grande partie le recours aux 
fonctlons habituelles de traitement des chaines et 
perraet de tralter de gros programmes aveo un CLEAR 
minimum. 

Structure du programme 



On jjeiii realiaer ce programme un peu dif feremment , 
en calculant par avance l'adresse de la ligne suivan- 
te, et en sautant a celle-ci lora de la detection 
d'un code 1H1 ( REM >. 



Neanmoins, il faut noter que lea gros programmes ne 
cemportent pas de REMarques. 

Lcurdeurs et inelegances 



Nous en avons lai33e subsister un certain nombre. 
En effet vous avez, comme moi, remarque combien les 
programiiieurs chevronnea sont frustrca loraqu'on leur 
propose un programme ne comportant pas les possibili- 
ty d'amelioratlon perraettant a leur talent de a'exer- 
cer dans toute sa splendeur... 



* * 
> 



60000 ' REF-'EAS Aufceur I Eernard BES5E — 

60002 ' 82-12-01 

O0004 ' 83-01-04 

60010 U-tftR'CL3s DEFINTA-ZtON ERROR GOTO 61050 

60020 hi*=t:me* 

60030 VR=-1 :FA=0: MX '=60000 

60040 VA=0: NU=-l: E=0: RT=FA: FD=FA: LE=FA: RM=FA: 6E=FA: JJ=0 

60050 CE*=CHR*< 2 > :HM*=CHR* ( 20) : EL*=CHR*< 23) :ES*=CHR*<24 ) :LN*=" 12345" :N5*=" 12345" 

60060 PRINT CE* 

60070 ' 

60080 :DATA 138, 142, 199, 146, 158, 141, 159, 161, 58, -1 

600 c ?0 RESTORE 60080 

60100 FOR K=l TO 255: READ C:IF C>=0 THEN NEXT K 

60110 NR=K-1 :NR*=STRING*(NR, "N" ) : RESTORE 60080 

60120 FOR K=l TO NR:READ C :MIDS (NRS, K, 1 )=CHR* < C ) :NEXTK 

60130 ' -goto-9osub-then-else-resume-restore-ort-/-f ield-" : " 

60140 ' 

60 1 50 LS ! =PEEK ( 1 1 087 ) +256*PEEK i 1 1 088 ) 

60160 IF LS!>32767 THEN LS=LS ! -65536 ELSE LS=LS ! 

60170 PRINT'Deb PGM en" ;LE! 

60180 PRINT 

O0190 FOR K=0 TO 15 

60200 IFLSK27714 THEN PRINT" DEBUT FAUX - ARRET" :END 

60210 IFLS!>27714 THEN 60230 

60220 PRINT Ki" FICHIER(S) RESERVED) - DEEUT CORRECT" : PRINT:GOTO 60250 

60230 : LS ! =LS ! -834 

60240 NEXT K 

60250 :IFK>0 THEN 60280 

60260 PRINT"RESERVEZ 1 BUFFER AU MO INS - PUIS RECOMMENCEZ " :END 

60270 ' Le Fichier 

60280 :KILL"XREF/DON" 

60290 :AS=12nLR=12:0PEN"D", 1 , " XREF/DON" , (LR> 

60300 FIELD 1, (AS) AS V* 

60310 LSET V*="" 

60320 DIM NI»(LR) , ZNS( LR> , ZG*<LR-1 ) 

60330 F0RK=1T0LR 

60340 FIELD!, (K-l )ASTP«, 1ASN1*(K) 

60350 FIELD1, (K-l )ASZG*(K-1), (LR-(K-l) )ASZN«(K) 

60360 NEXTK 

60370 ' Parametres Boucle 

60380 DD=LS: FI=-1: FF=FI: IF DD>FF THEN FF=32767 

60390 ST=1 

60400 ' Debut Boucle de Traitement 

60410 :FOR K=DD TO FF STEP ST 

60420 C=PEEK(K) 

60430 IF JJ=4 THEN 60510 

60440 JJ-J J+ 1 : D ( J J ) =C 

60450 IF JJ<4 THEN 60870 

60460 IF D(l)=0 AND D(2>=0 THEN 60890 

60470 LN!=D(3)+256*D<4) 

60480 IF LN!>=MX! THEN 60890 

60490 RSET V$=STR*(LN! ) :LSET LN*=ZN$<8> :LSET V$= GOTO 60870 

60500 ' 

60510 :IF C>0 AND C<33 THEN 60870 

60520 IF C=34 THEN LB=NOT LB: GOTO 60550 

60530 IF C=144 THEN RM=VR:GOTQ 60550 

60540 IF LB OR RM THEN 60860 

60550 : 'C continue 3 

60560 * Ecriture Retardee (Var. * ! "/. *) 

6B570 IF NOT RT THEN 60610 

605b(3 RT=FA:IF CO40 THEN SOSUB 60920s GOTO 60610 

60590 VA=VA*1:LSET ZN* ( VA) = " ( ) " :GOSUE 60920 

60600 ' Tri des Caract. par Categories 

60610 :IF C<65 OR C>90 THEN 60650 

60620) ' Lettres 

60630 VA=VA+1 :LSET Nl* ( VA)=CHRS < C) :GOT0 60870 

60640 ' Non lettres 




\ 
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60650 :IF C-.4& OR OS 7 THEM 60710 

60660 ' Chi i free 

60^.70 IF l -'A THENVA=VA+ 1 : L.SE I Ml S • VA ' = OHR* ' C > JQOTO 60370 

60680 IF NU=0 THENNU=NU+1 sLSET1SI1*(MU)=CHR*<C> 850TO 60870 

60690 SOTO 60370 

60 7 00 ' Car" epe. tPonctuatiOri et Mots Feser'/as) 

607 10 :IF NU »0 THEN RSET N5*=Zo* < NU ) : RSET Z5* i 5 )=M5* 8 GOSUB e.0920:GOTO 60820 

60720 IF VA = THEN 60320 

60730 " [if- et [' # $ - i] 

60740 XX=TNSTR< "S!#%" ,CHRS (C.M : IF XX T HEN 60^' 7 

60750 IF C=40 THEN VA=VA+1 SLSETZNt <VA!=« O " SGOTO 60900 

60760 SOTO 60800 

60770 :VA=VA+1 :LSET Nl*fVA)=CHR*< C) 

607PJ0 RT=VR:GOTO o0'..-20 

60790 ' Ecriture 

60800 JGOSUB 60920 

60dlld ' 

60820 :ZZ=INSTR(NRS, CHRSIC) ) 

60830 IF ZZ=0 THEN NU=NOT GB:GOTO 60860 

60840 IF ZZ<7 THEM NU= 0:GOTO 60870 

60345 IF ZZ=7 THEN MU=0: GB=VR: GOTO 60870 ^ 

60650 NU=-1 :GE=FA:IF l', =8 THEN FD=VR :«50T0 60870 ELSE FD=FA:GOTO 60870 « 

60860 :IF C=0 THEN JJ=0 : RM=FA:LB=FA:FD=FA :GB=FA ^T 

60870 :NEXT K ^ 

608B0 i 

60890 :PR1NT ESS ; STRINGS < LR, "-">: PRINT H1S:PRINT TIMES gk + 

60900 CLOSE:LINEINPUT"ENTEft Four Trier" ;ZZS: RUN" TRI CD/ E W 

60910 '============ ^ 

60920 :REM<ECRITURE> ^^ 

609 ! P rR=0: 1!- VA=0 IHtll 60980 ^V 

60940 IF FD AND INBTRi VJ, " *" > >0 THEN LSET ZN* ( 1 ) = ZN* ( 3 ) A 

60950 VA=0:IF N1S<3> < "0" THEN 60980 

60960 :LSET ZN* v 3 > -ZN* ( 4 > ■ IF Nl*<3>>-"0" THEN 60960 ELSE TR — 1 _ 

60970 ' mt 

60980 :LSET ZNS(6)=LMS: IF TR THEN LSET ZN»< 1 1 >="-T ' V 

60990 ' <m ftk 

61000 IF ROW<0>>=23 THEN FRINT HMS i W V 

61010 PRINT V*;EL* tm 

61020 PRINT STRINGSiLR. " A " ) iELS ; STRINGS (LR, 28) : W 

61030 E=E+1 : PUT 1,E« LSETVS= RETURN 

61040 ' A 

6 1 050 : REM h Rfi ■ 

61060 IF ERRO-53 THEN 61090 — A 

61070 IF- LRL 60280THEN 61090 ~ W 

610B0 RESUME 60290 ^ 

61090 :IF ERR06 THEN 61120 W 

61100 IF ERLO60870THEN 61120 

61110 FRINT"PAS3AGE DE 32767-LIGME=" ;ERL : DD=K-32768<-ST-32768:FF=FI : RESUME 604K 

61120 :IF ERRO-9THEN 61150 

61130 PRINT" INDICE FAUX A LA LIGNE" JERL : "VARIABLE TROP LONGUE ' - J'ARRETE" 

61140 CLOSE: END 

61 150 SON ERROR GOTO 

61160 '*#********»* 



61090 


C 


] 


61060 


61078 






60420 
60650 

60470 


60440 
60650 


60510 
60670 


60510 
60680 


60520 
60740 


60530 
60750 


61120 


c 


] 


61090 


61 100 






61150 


[ 


] 


61120 






A 


c 


] 


60010 








AS 


c 


] 


60290 


60300 






C 


c 

c 
c 




60100 
60580 
60770 


60100 
60610 
60820 


60120 
60610 
60860 


60120 

60630 


CE* 


c 


3 


60050 


60060 






D< ) 


c 


3 


60440 


60460 


60460 


60470 
61110 


DD 


c 


3 


60380 


60380 


60410 


E 


c 


] 


60040 


61030 


61030 


61030 


ELS 


c 


3 


60050 


61010 


61020 




ESS 


c 


3 


60050 


60890 

















.Bernard Bease 
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utilitaire 




Pour votre 

modelel, 

un utilitaire 

qui vaut de Tor 

(1«° partie) 



Ce programme a lui tout seul, remplace toute une 
quantite d' utilitaires que les possesseurs de "con- 
figurations cassette" devraient apprecier ! Jetez un 
coup d'oeil sur les lignes qui sulvent pour vous en 
convaincre. . . 



UN SUPER DRIVES DE CLAVIER 



Ce programme permet d'obtenir sur TRS80 modele 1 : 

- des touches a repetition autoraatique en cas d'ap— 
pui prolonge ; 

- un bip sonore a chaque enfoncement de touche (avec 
un ampli relie a la prise "AUX" de la sortie casset- 
te) ; 

- 1' usage des minuscules (si le materiel le permet) ; 

- une commande d' inversion majuscules/minuscules ; 

- un clavier AZERTY en option ; 

- des commandes pour afficher les autres caracteres 
disponibles ; 

- la recopie de l'ecran, partielle ou totale, sur 

imprimante ; 

- le gel de l'affichage video ; 

- le controle du defilement ligne par iigne sur l'e- 
cran ; 

- une fonction d 1 edit ion de texte. 

Avec les ancie.nnes MEM, il apportera en plus : 

- le traitement des rebonds du clavier ; 

- la fonction controle (CTRL) oirectement en pressant 
SHIFT et sans deplacement du curseur, comme avec les 
nouvelles MEM. 



Dans sa structure, ce programme reprend le driver 
clavier de la MEM et lui insere les elements neces- 
saires a l'obtention des commandes supplementaires 
desirees. La fonction d' edition de texte peut etre 
consideree comme independante, mais utilisant un dri- 
ver clavier modi fie au niveau des codes generes. En 
outre, le driver d'ecran a ete remanie pour permettre 



Sexploitation des codes ASCII 60H a 7FH concernant 
notamment les lettres minuscules et precede d'une 
fonction de controle du defilement de l'affichage. 

Les Lignes 3100 et 31 '0 devront etre supprimees pour 
les lmprlmantes qui generent automatlquement une avan- 
ce papier conjuguee avec le retour chariot, sous pei- 
ne d'ajouter un interligne apres chaque ligne d' im- 
passion. Les iraprimantes capables d'exploiter les 
codes graphiques du TRS80 (codes 80H a OFFH) pourront 
se passer des lignes 3020 a SO'tO. Toutes ces lignes 
sont reperees par le signe + au debut du commentaire. 
Les usagers qui ne desirent pas le clavier AZERTY 
devront aauter tout le paragraphe correspondent (li- 
gnes 1910 a 2140). Par contre, 11 n'est pas Indispen- 
sable de supprimer les parties relatives au traite- 
ment des minuscules pour ceux dont le materiel ne 
permet pas leur affichage, car une routine teste la 
configuration et, si necessaire, court-clrcuite auto- 
matlquement la partie concernee du driver d'ecran. 



Le programme en assembleur qui suit est ecrit pour 
une version cassette. Mais les utlllsateurs de dis- 
quettes pourront aisement 1' adapter - a leur propre 
configuration. Alors qu'en BASIC Level 2 le deplace- 
ment du tampon BASIC semble la meilleure solution 
pour loger le programme objet ( ce qui le protege au- 
tujiatiqueiuent ct garde diaponible le haut de la me- 
moire pour d'autres routines) , sous DOS 1 ' Implantation 
en fond de memoire est obligatoire pour rester com- 
patible avec differentes configurations du DISK BASIC. 
A la ligne 100 devra done figurer une adresse en rap- 
port avec la taille memoire et la place occupee par 
les eventuels utilitaires que l'on desire falre coha- 
biter. En leur absenee, on pourra prendre 0BD80H pour 

32 K et OFD80H pour '18 K. En outre, les lignes 3650 
a 3680 concernant 1' Initialisation devront etre rem- 
placees par les suivantes : 



03650 EXIT 


LD HI, ENTRY- 1 


; ADRESSE POUR LA 


03660 


LD (1019H),HL 


; PROTECTION MEMOIRE 


03670 


CALL 0'C9H 




03580 


JP 402DH 


; RETOUR AU DOS 



TRACEN°5-Avrill983-Sl 



Enfin, pour obtenir des blps non perturbes par les 
interruptions d'horloge, ajouter lea lignes : 

01835 DI 

019^5 EI 

Certaines valeurs sont parametrables afin d'adapter 
le fonctionnement au gout de chacun. Elles sont si- 
gnaleas dans le corps du programme par un asterisque 
place au debut du commentaire de la ligne concernee. 
Alnai par exemple, on peut changer la duree d' inhi- 
bition des touches avant repetition. La valeur don- 
nee dans le programme (6, ligne 1260) permet environ 
une seconde de temporisation. Chaque unite en plus 
ou en moins augraentera ou diminuera cette duree de 
l/6ieme de seconde. De raeme en ligne 1 400 , la caden- 
ce de repetition pourra evoluer de 5 a Ml coups/se- 

conde environ sulvant la valeur donnee (de OFFH a 
00). 



A 1 ' initialisation, l'ecran s'efface et le message 
READY (ou DOS READY) apparalt dans le coin superieur 
gauche. Les nouvelles commandes sont des lors cpera- 
tionnelles. Toutes les touches sont a autorepetition. 
Si votre materiel est capable d'afficher les minus- 
cules a l'ecran, vous les obtiendrez en pressant la 
touche SHIFT. Mais vous pouvez inverser l'effet de 
cette touche, de maniere a obtenir les minuscules 
directement et les majuscules shiftees, en faisant la 
commande <SHIFT 0>. Si vous faites a nouveau cette 
commande, vous retrouverez la disposition precedente 
du clavier. Les autres signes que peut produire le 
generateur de caracteres equipant votre machine (co- 
des 5BH a 5FH, et 7BH a 7FH) seront obtenus en fai- 
sant <CTRL X>, X etant l'une des touches sulvar.tes : 
"«.", "V, "1-", "+", ■'<", ">", " ?", "ENTER", "CLEAR", 
"ESPACE". Pour obtenir la recople de l'ecran sur im- 
primante, on utilisera les commandes <CTRL *> (enco- 
re une commande empruntee au vocabulaire du TRS80 
Modele 3 dans un souci de standardisation), ou <CTRL 
=>. La premiere de ces commandes ne I'era recopier 
que les seules lignes d'ecran situees au-dessus du 
curseur (generalement les seules lignes utiles), tan- 
dis que la seconde fera imprimer le contenu de l'e- 
cran tout entier (ce qui peut etre necessaire en mode 
editeur de texte). Sous DOS comme en BASIC, le gel 
de l'affichage video pourra etre obtenu en appuyant 
sur la barre d'espace. Ensuite, chaque mouvement de 
celle-cl entralnera l'affichage de la ligne d'ecran 
suivante. Presser une autre touche quelconque fera 
revenir au defilement continu. La routine AZERTY se 
limite simplement a permuter respectivement les tou- 



ches A et Q, W et Z, + et M, ce qui permettra cepen- 
dant a ceux et celles qui ont appris la dactylogra- 
phie en Europe de ne pas se trouver trop depayaes 
devant le clavier de cet ordinateur. 

Si vous pressez simjltanement les touches CLEAR et 
ENTER, un curseur clignotant vous signalera que vous 
ver.ez d'entrer dans le mode de fonctionnement EDITEUR 
DE TEXTE. Lea touches "f leches" pernettent alora de 
prcmener le curseur, qui apparalt en dessous des ca- 
racteres du texte afflche sans les ef facer, en circu- 
lalre sur toute la surface de l'ecran. Pour remplacer 
un caractere 11 suffit de frapper sur la touche cor- 
respondant au nouveau caractere. Ainsi , la barre d'es- 
pace efface ( reraplaceraent du caractere par un espace) 
La touche CLEAR n' efface que la fin de l'ecran a par- 
tir dc la pooition du curocur, tondis que <ENTER> 

fait retour au debut de la ligne suivante avec effa- 
cenent de cette ligne. Deux commandes supplementai- 
res sont prevues : <CTRL D> comme D2LETE et <CTRL I) 
conrae INSERT. La premiere enleve le caractere au- 
dessus du curseur, les caracteres saivants du texte 
etant decales pour combler le vide. Pour supprimer 
plus rapidement une serie de caracteres, utiliser 
1' autorepeti tion de cette commande. <^CTRL I^> fait en- 
trer dans le mode INSERTION, ce qui est signale par 
l'apparition d'un deuxieme curseur clignotant au- 
dessus du premier. Alors, seules sont actives les 
touches generant des caracteres, y compris ceux obte- 
nus par <CTRL X>. Falre <CTRL D> pour sortir de 1' in- 
sertion, ce qui supprimera conjointement le deuxieme 
curseur. Lors de la recopie entlere de l'ecran par 
1 ' mprtmante (commande <CTRL => ) . le curseur dispa- 
ra-t momentanement permettant ainsi d' utiliser la 
I6:eme et derniere ligne d'ecran. Mais attention ce- 
pendant, car l'affichage du 64ieme et dernier carac- 
tere de cette ligne, de meme que l'action sur la tou- 
che ENTER, declencherait l'affichage en rouleau et 
ferait ainsi dlsparaltre irremediablement la premiere 
ligne du texte. Enfin appuyez sur la touche BREAK 
pour revenir au mode de fonctionnement initial, BASIC 
ou DOS. 



Les commandes de cet editeur de texte sont certes 
rucimentaires, ce qui simpiifie le mode d'emploi mais 
en limite la puissance. Pensiez-vous trouver ici un 
concurrent de SCRIPSIT ? Tel quel, 11 m'a cependant 
permis d'ecrlre cet article. Et malntenant vous pou- 
vez le developper a votre convenance. 
Etant donne 1' importance du programme, vous trouverez 
la suite de la liate dans le prochain numero (Ndlr). 




42E? 



42E<> 
42EC 
<r2EE 



3A4038 

FE03 

C27D43 



42F1 211A40 



00010 ; SUPER DRIVER DE CLAVIER POUR T.R.S. 80 MODELE 1 

00020 ; 

00030 ! AUTEUR : ROGER BUVAT 

QQ0-.0 ; 

00050 ; COPYRIGHT "TRACE' 1 ET L'flUTEUR 

00060 ; 

00070 i 

00080 ; ======================================================= 

00090 

OD100 ORG 42E9H ' ; * VERSION BASIC LEVEL 2 

00110 

00120 

00130 ! SELECTEUR DE MODE D' EDITION 

00UO »\ //> 

00150 ENTRY LD A;(3840H> .V. ' 

00160 CP Q3 - 

00170 JP NZ7CLAV ; SI NON <CLEAR ENTER> f J| 

00130 ^~-^ 

00190 : EDITEUR DE TEXTE ■ 

00200 

00210 LD HL-401AH 
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42F* 


E5 


00220 




PUSH 


HL 






42F5 


CBCE 


00230 




SET 


1; (HL) 


0>"<V 




<t2Fl 


CD7D43 


00240 


EDIT 


CALL 


CLAV 




42FA 


DD21 1D40 


00250 




LD 


IX>401DH 


V 




42F E 


21fT3f 


00260 




LD 


HL;3FFFH 


; FIN MEMOIRE ECRAN v f *v 


•> 


001 


ED5B2040 


00270 




LD 


DEi (4020H) 


; ADRESSE CURSEUR K h 




4305 


ED52 


00280 




SBC 


HL>DE 


\ ' 




4307 


D5 


00290 




PUSH 


DE 






430S 


E3 


00300 




EX 


(SP) >HL 






4309 


CI 


00310 




POP 


BC 






430ft 


FE04 


00320 




CP 


04 






430 e 


285E 


00330 




JR 


ZrDELETE 


\ SI <CTRL D> 




430E 


E3 


00340 




EX 


(SP) 7HL 






430F 


CB56 


00350 




BIT 


2? (HL) 






4311 


E3 


00360 




EX 


■(SP) >HL 






4312 


2030 


00370 




JR 


NZi INSERT 


i SI MODE INSERTION 




4314 


FED9 


00330 




CP 


09 






4316 


283F 


0U390 




JR 


Z-CTRL1 


; SI <CTRL I> 




431S 


FEOD 


00400 




CP 


ODH 






4T1 A 


?ftH5 


00410 




JR 


ZpAFFICH 


; SI <ENTER> 




431C 


FE18 


00420 




CP 


18H 






431E 


3031 


00430 




JR 


NCAFFICh 


; SI CODE UTILE 




4320 


217B44 


00440 


EDITO 


LD 


HL7CBLINK 






4323 


35 


00450 




DEC 


(HL) 






4324 


20D1 


00460 




JR 


NZ7EDIT 


; SI COMPTEUR NON ZERO 




4326 


21F742 


00470 


BLINK 


LD 


HL7EDIT 






4329 


E5 


00480 




PUSH 


HL 






432A 


F5 


00490 




PUSH 


AF 






432B 


2A2040 


00500 




LD 


HL? (40201-) 






432E 


3EBD 


0D510 




LD 


A.OBOH 


; * CODE CURSEUR 




4330 


BE 


00520 




CP 


(HL) 






4331 


2004 


00530 




JR 


NZ, CARACT 


f SI CARACTERE AFFICHE 




4333 


F5 


00540 


CUROFF 


PUSH 


AF 






4334 


3A2240 


00550 




LD 


A> (4022H) 






4337 


E5 


00560 


CARACT 


PUSH 


HL 






433S 


2A2D40 


00570 




LD 


HL? (4020H) 






433B 


77 


00580 




LD 


(HL)iA 






433C 


3E60 


00590 




LD 


A?60H 


i * FREQUENCE CLIGNOTEMENT 




433E 


327B44 


00600 




LD 


(CBLINK) ?A 






4341 


El 


00610 




POP 


HL 






4342 


Fl 


00620 




POP 


AF 






4343 


C9 


00630 




RET 








4344 


FE20 


00640 


INSERT 


CP 


20H 






4346 


38D8 


00650 




JR 


C7EDITO 


■ SI CODE COMMANDE 




4345 


CD3343 


00660 




CALL 


CUROFF 






434B 


09 


00670 




ADD 


HLiBC 


^v 




434C 


EB 


00680 




EX 


DE7HL 




434D 


09 


00690 




ADD 


HL?BC 


-^ 




434E 


2B 


00700 




DEC 


HL 


^ ^Jl^^ _^>\ 




434F 


EDB8 


00710 




LDDR 








4351 


4F 


00720 


AFFICH 


LD 


C>A 


C~ 'j? 




4352 


CDD544 


00730 




CALL 


DECRAN 


^^■^^^ 




4355 


18CF 


00740 




JR 


BLINK 


f V 




4357 


E3 


00750 


CTRLI 


EX 


(SP) 7HL 


g" *y 




4358 


CBD6 


00760 




SET 


27 (HL) 


/? -j 




435A 


E3 


00770 




EX 


(SP) 7HL 


^^ 




435B 


CD3343 


00730 




CALL 


CUROFF 






435E 


09 


00790 




ADD 


HL?BC 






435F 


EB 


00800 




EX 


DE;HL 






4360 


09 


00810 




ADD 


HL7BC 






4361 


2B 


00820 




DEC 


HL 






4362 


EDBS 


00830 




LDDR 








4364 


3E83 


00840 




LD 


A?83H 


; » CODE MODE INSERTION 




4366 


12 


00850 




II) 


(DE) 7A 






4367 


322240 


00860 




LD 


(4022H) 7fl 






436A 


18BA 


00870 




JR 


BLINK 






436C 


E3 


00880 


DELETE 


EX 


(SP) 7HL 






436D 


CB96 


00890 




RES 


2 7 (HL) 


a"^ 




436F 


E3 


00900 




EX 


(SP) ?HL 




4370 


E5 


00910 




PUSH 


HL 


"" 




437! 


23 


00920 




INC 


HL 


/"\ ~ 




4372 


EDBO 


00930 




LDIR 




N. \ * 




4374 


2B 


00940 




DEC 


HL 


^=^ 




4375 


3620 


00950 




LD 


(HL) 720H 






4377 


El 


00960 




POP 


HL 






4378 


CD8604 


00970 




CALL 


0486H 






437B 


18A9 


00980 
00990 




JR 


BLINK 







Roger Buvat 
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Escalade? Guerre froide? 



Prix Nobel de 
la Paix? 

Mesurez-vous avec 

votre 
Sharp PC 1211!^ 







Ce programme, Inspire d'un jeu publle par "Science 
et Vie" en 1976, simule les differentes phases d'une 
"escalade" entre deux super-puissances : Vous et la 
Machine. 

Le Jeu se deroule durant dix annees pendant lesquel- 
les les deux parties se constitjent simultanement un 
stock d'armes nuclealrss r.nut. pi pssayant de deviner 
celui de l'adversalre ; cette connaissance est fonda- 
mentale car la guerre peut naltre aussi bien d'une 
mesestlmatlon des forces adverses que d'un surecuipe- 
menr. de l'un ou 1' autre... 



DEROULEMENT DU JEU 



(Shift A) 



Le jeu debute par une demande de l'heure ; ne vcus 
etonnez pas, votre Poquette n'a pas ete subltement 
et mysterieusement dote d'une horloge programmable 
qu'il voudralt mettre a l'heure, 11 as seulement trou- 
ve ce moyen fort commode pour obtenir la racine de sa 
serie de nombres aleatolres. . . 

Chaque "annee" le Joueur peut augmenter son stock de 
"bombes" mals sans depasser le nombre 100, ce qui cor- 
respond a un stock maximal de 1000 bombes au bout de 
dix ans j 11 dolt ensulte estimer le stock de son ad- 
versaire, en respectant les memes limitations. De son 
cote la Machine procede de facon ldentique, mals cha- 
cun Ignore ce que fait l'autre (pas de "tricheries" 
prevues dans le programme ! ) . 

Une "guerre" pe.it alors eclater dans certalnes condi- 
tions dependant a la fois de 1' attitude "agressive" 
de l'un ou l'autre des adversaires (strategie jugee 
"belllciste" par le programme) et de leur "lrrespon- 
sablllte" marquee par une sous ou sur-estimation gros- 
siere des forces ennemies. Dans ce cas le (ou les) 
reaponsables potentiels sont designes afln qu'ils 
puissent, 3' lis le veulent, modifier leur attitude... 

Si les conditions sont reunies la guerre a alors deux 
chances (sic !) sur trols d'eclater ; un tlrage au 
sort en decide. SI c'est "oui" une "formule d'equill- 
bre" est alors determinee en fonction des 3tocks reels 
de bombes et de la disproportion des forces entre les 
deux adversaires. Si le point d'equilibre - le "nom- 



ANNEE 1. 


C*EST LA GUERRE! 


VOTRE ST0CK=10. 


■ • • 


(+10.) 


APOCALYPSE A 13. 


VOTRE ESTIMATION 


V. 


1100, 


VOUS AVEZ PERDU! 


ANNEE 2. 


■ • ■ 


VOTRE STOCK=20. 


ANNEE 7. 


<+10.) 


VOTRE ST0CK=265. 


VOTRE ESTIMATION 


(+100. > 


:200. 


VOTRE ESTIMATION 


ANNEE 3. 


:700. 


VOTRE ST0CK=30. 


ANNEE 8. 


(+10.) 


VOTRE ST0CK=365. 


VOTRE ESTIMATION 


O100. ) 


:300. 


VOTRE ESTIMATION 


ANNEE 4. 


1800. 


VOTRE STOCK- 130. 


ANNEE 9. 


(+100.) 


VOTRE ST0CK=375. 


VOTRE ESTIMATION 


<+10.) 


t400. 


VOTRE ESTIMATION 


GUERRE POSSIBLE! 


:900. 


V ■ • 


ANNEE 10. 


...DE MA FAUTE 


VOTRE ST0CK=385. 


ANNEE 5. 


<+10.) 


VOTRE ST0CK=230. 


VOTRE ESTIMATION 


<+100.) 


: 1000. 


VOTRE ESTIMATION 


NIVEAUX=V0USI2. 


:500. 


MOH6. 


GUERRE POSSIBLE! 


STOCKS DE BOMBES 


!!!dE MA FAUTE 


1 

VOUS: 385. < 1193. ) 


ANNEE 6. 


H01 ■ 1000. < 1000.) 


VOTRE STOCK=330. 


DECLENCHEURS DE 


<+100. > 


GUERRE3: 


VOTRE ESTIMATION 


VOUS:0. FOIS 


:600. 


nom. fois 


GUERRE POSSIBLE! 


JE SUIS FAUTIF.. 


■ ■ • 


.AH!. AH! 


...DE MA FAUTE 
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bre de 1 'apocalypse" - est depasse e'est "la fin du 
raonde" . . . ; sinon un valnqueur est designe (le plus 
fort) et les stocks dea deux adversaires sont diminues 
en fonctlon des resultats des combats. 

Le roeme processus est repris durant dix annees conse- 
cutives (sauf dans le cas de l'apocalypse, bien sur) . 
En fin de partle les bilans sont publies : 

* Stock de chacune des deux puissances et derniere 
estimation faite par i'adversaire ; 

* Designation du responsable des guerres ou du cata- 
clysme final, et si aucun conflit n'a eclate, de- 
cernement du "Prix NOBEL de la Paix". 

VARIABLES UTIL1SEES 



B : Increment annuel du stock du Joueur 

C : Increment annuel du stock de la Machine 

D : Stock reel du Joueur 

E : Stock reel de la Machine 

F : Stock suppose du Joueur 

G : Stock suppose de la Machine 

H : Niveau de strategic tcalcule) du Joueur 

I : Niveau de strategie (choisi au depart) de la 
Machine 



J : Nombre de guerres declenchees pap le Joueur 

K : Nombre de guerres declenchees par la Machine 

N : Stock global a partir duquel 1' Apocalypse peut 
survenir (initialise a 100) 

Q : Formule d'equilibre = ABS (D-E)/Z 

P : Point d'equilibre = 100*C0S Q (angles en gra- 
des) ; correspond a un % de 1' Apocalypse 

A : Nombre de l'Apocalypse (initialise a 100*C0S 20, 
soit 95 %) 

R : Variable utllisee dans le calcul des conditions 
de guerre ; plus elle est faible, plus la guerre 
peut se produire facilement (initialisee a 7> 

W : Nombre aleatolre inferieur a 1 

X : Variable de travail 

Y : Variable de travail 

S : Variable de travail 

Z : Indice des Annees 



REKARQUES SUR LE JE'J DE LA MACHINE 



* Le programme lui assigne au depart un niveau de 
strategie compris entre 1 et 6 suivant lequel son 
attitude sera plus ou moins "bell-ciste" ; cepen- 
dant si les resultats d'un conflit frolent de trop 



w 

H 
H 
W 

O 

o 

Oh 



15 PAUSE "APOCA 


<B/Z+20)/20> 


165: IF Y>0G08UB 


225: PRINT "STOCK 


LYPSE" 


120: IF P>IN7 -:E2 


"W":X=INT '3 


S DE B0MBES: 


2: PAUSE "AUTEU 


*SIN (10*(I+ 


W+l >! IF X>1 


": PRINT "V0U 


R:A.GANDOSSI 


2>»LET 1=1- 


GOTO "3" 


sr";D;"<";F; 


3: PAUSE "COPYR 


1 


170: GOTO "5" 


">": PRINT "M 


IGHT-.L-AUTEU 


125:G0SUE "W":X= 


175:"3"BEEP 3: 


0I!"!E5 U <"JG 


R+TRACE 


INT (40W+1): 


PRINT "C A EST 


',")" 


4: PAUSE "FAIRE 


C=INT ASN C< 


LA GUERRE!. 


230: PRINT "DECLE 


SHFT A" 


10I+X>/E2>: 


II 

> ■ 


NCHEURS DE G 


9: END 


IF Z=1G0T0 " 


180: IF <Y=1>+<Y= 


UERRES:": 


10:"W"W=<W+n> A 5 


1" 


3>*<H>=I)LET 


PRINT "V0US: 


:W=W-INT W: 


130: C= I NT (ECVE2 


,T=T+l:G0T0 " 


"?j;" F0IS": 


RETURN 


) 


4" 


PRINT "MOU" 


20:"¥"PRINT "GU 


135:"1"E=E+C:IF 


185: IF <Y=2>+CY= 


;k»" fois" 


ERRE POSSIBL 


E<=0LET E=l 


3>*<H<I)LET 


235: IF J=0IF K=0 


E!...": 


136: IF E>E3LET E 


K=K+1 


PRINT "NOUS 


RETURN 


=E3 


190: »4"Q=ABS <D- 


MERIT0NS LE 


100:"A"BEEP l: 


140: "2"PAUSE "ES 


E»2:P=INT ( 


NOBEL ! " : GOTO 


CLEAR : INPUT 


T I MAT I OH STO 


E2*CGS Q>i 


ii "7 » 


"QUELLE HEUR 


CK ENNEMI": 


PRINT "APOCA 


240: GOTO "8" 


E EST-IL?"5W 


INPUT "...CO 


LYPSE A "5P; 


245: "7" IF D<E 


:W=DEG W./E2: 


MB I EN? "161 IF 


ii ;/ ii 


PRINT "...SU 


PAUSE "MERC I 


G>E2ZPAUSE " 


195: IF P>=AIF B+ 


PRINT "...SU 


!":G0SUE "W" 


TROP ! " : GOTO 


E>NBEEP 6: 


RT0UT V0US ! 


: 1=1 NT C6W+1 


"2" 


PRINT "...FI 


" : END 


) 


141: PRINT "V0TRE 


N DU MONDE ! 


250: PRINT "...SU 


10l:GRAD :A=INT 


ESTIMATION: 


...":G0T0 "6 


RT0UT M0 I !" 


<E2*C0S 20): 


"5G 


II 


:END 


N=E2:R=7 


145SG0SUB "W":F= 


200: IF D>EPRINT 


255: "8" IF J>K 


105: FOR 2»iT0 10 


F+INT <<C+ 


"V0US AVE2 G 


PRINT "SALE 


:BEEP l: 


INT <E2W+1>> 


AGNE !...": E 


FAUTEUR DE G 


PRINT "ANNEE 


/2> 


=INT C5EMS 


UERRE ! " : END 


"5Z 


155:Y=0:IF G/E<H 


=INT <.75D>: 


260: IF J<KPRINT 


1 10: "0" INPUT "EG 


•••RLET Y=i: 


GOTO "5" 


"JE SUIS FAU 


UIPEMEHT EN 


G0SUB "¥": 


205: PRINT "V0US 


TIF. ..AH!. AH 


B0MB£S?"JB:B 


PRINT "...DE 


AVEZ PERDU ' . 


!":END 


=ABS E:IF B> 


V0TRE FAUTE 


..":D=INT C. 


265: PRINT "NOUS 


E2PAUSE "TR0 


II 


5D):E=INT C. 


SOMMES C0UPA 


PI "I GOTO "0" 


160: IF F'TKI^R 


75E> 


BLES ! " : END 


1 1 5s B=B+BJ PRINT 


LET Y=Y+2: 


210: "5"NEXT Z 




"V0TRE STOCK 


G0SUB "¥": 


220: "6"PRINT "NI 




e"JD!" <+";b 


PRINT "...DE 


VEAUX=V0US: " 




5 ")":H=INT < 


MA FAUTE" 


JUS" H0l:"i I 
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pres 1' Apocalypse, la Machine, soucieuse de sa pro- 
pre survle, peut pratiquer d'elle-meme une "deses- 
calade" en diminuant aon niveau ; dans certains cas 
ceci peut conduire a un desarmement partiel ou to- 
tal par une diminution de son stock de bombes (in- 
crement negatif ) . 

* Le choix de eon stock initial se fait selon une 
formule faisant intervenir le niveau de strategie 
ainsi qu'un r.ombre tire au hasard ; ainsi pour le 
niveau 1 le stock sera compris entre 7 et 33, pour 

le niveau 2 entre 13 et 40 , pour le niveau 6 

entre 11 et 100. 

Les increments de stock sont 3btenus a partir du 
stock precedent dont on prend un pourcentage cal- 
cine de I'agon similaire. 

* L'evaluatlon du stock du Jouejr est simplement cal- 
cule en utilisant une moyenne entre un nombre alea- 
toire et son propre increment de stock. 



nEMAI1QUE£ 



3Un LES CONDITIONS DE CONFLITE 



* A l'instar de la Machine, le Joueur possede un ni- 
veau de strategie mais qui est calcule a chaque 
tour du jeu, dependant du volume de son stock reel 
par rapport au temps ecoule. 

" line guerre eat possible hi le niveau ae xr.r'iV.eg: e 
d ' un des adversaires est relativement fort (ce qui 
correspond a une accumulation de bombes presumee 
forte), et si a la fois il sojs-estime le stock 
ennemi dans une certaine proportion (ce qui corres- 
pond a une tentation de faire la guerre, car ilpen- 
se etre le plus fort). En pratique le programme cal- 
cule le rappcrt entre 1' estimation et la realite et 
le compare a un aeuil dependant, du niveau de stra- 
tegie et de la variable R initialisee au debut du 
jeu ; par exemple avec R=6, pour le niveau 3 si le 
rapport precedent est inferiejr a 0,5 (100 % d'er- 
reur relative) il y a risque de conflit ; pour le 
niveau 2 ce seuil est ramene a 0.33, mais il est 
egal a 1 pour le niveau 6 (la guerre est possible 
si l'on n'a pas devine le stock exact de l'adver- 
saire ! ) . 

* En cas de guerre si l'equilibre des forces est rea- 
lise (stocks tres voisins) il y a un risque pour 
que l'un ou l'autre veuille "aller Jusqu'au bout" 
et 1' Apocalypse peut survenir . La formule d'equi- 
libre conduit a un nombre Q dont la valeur maxiraa- 
le est 100 ; la valeur a ne pas depasser A a ete 
choiaie egale a 9^>, ce qui correspond a un ecart 
annuel moyen entre les deux stocks de 20 unites. 
Par ailleurs ce cataclysme ne peut survenir que 

si le stock cumule des adversaires est superieur 
a la valeur M. 



ORGANIGRAMME DE PRINCIPE 



Initialisation 

-» Annee i 

Choix du nouveau stock de bombes 

Estimation du stock de l'adversaire 

Les conditions de la guerre sont-elles 
atteintes ? 



© 



& 

Tirage su sort 

(foul) 

"c'est la guerre" 

Calcul ce la formule d'equilibre 

A-t— nn rippasae le nombre de 
1* Apocalypse ? 



Qnoru 



Stock Joueur > Stock Machine ? 



@H 



Kin du 
Monde 



© 



(nur^ 



le Joueur 
a gagne 

i 

derniere annee ? 



la Machine 
a gagne 
_J 



(jon) (J^y 



Etat des stocks 

Designation du responsable 

... ou remise du Prix NOBEL de la Paix 



COMMENT AMELI0RE LE JEU 



* Trouver une methode ou un algorithme pour que la 
nachine evalue au mieux le stock du Joueur 

* Modifier de facon aleatoire, ou ajtre ..., les 
parametres conditionnant le declenchement des con- 
flits et l'eventuallte de 1 'Apocalypse 

* Calculer les stocks des deux adversaires apres une 
guerre 

* Etc... 



Alain Gandossi 



Avezvous rempli le questionnaire? 

page 5 



56 - TRACE N° 5 - Avril 1983 



technique. 



Dans les entrailles 

logicieUes du PC 1500 

(ii) 



^^^^^^^^^^^^"^^ 






■W---M »*>«..,« ■■■■■■■ 


H ■ 


H 


" 

...... mmmH 


■ 


(Ei a a a a a a c-a 




■'. IB 


aaaaaaaoDDCDrasoa 


^K ^B 




aaoaoaaaa qeehb 

aaaanaoaa m cu cd □ en 






1-1 i.-i m HBOI i'i i'i i...«!ffi..j rai.usimm 




^^^^™ 


M tt SHARP 



w 

H 

H 
W 

O 


a. 



A l'aide des fonctions PEEK, POKE, STATUS decrites 
dans lc numero 3 dc TRACE, j'ai pu "dccortiqucr" 1 ' ar- 
chitecture d'un programme BASIC en memoire, la struc- 
ture des variables ou tableaux, nuraeriques ou alpha— 
numeriques. 

ARCHITECTURE PROGRAMME BASIC 



La RAM BASIC commencant en & 40C5, 11 m'a ete relati- 

vement Facile de decoder un programme en memoire ; 
voici la structure de celui-ci : 



LH 


LL 


LEN 


VI 



© 



LH : octet de poids fort du numero de ligne (<&FE) 
LL : octet de poids faible du numero de ligne 
LEN : norabre d' octet de VI a (Tj) inclus 

L'espace entre LEN et 13 contient la representation 
de la ligne. Exemple : 

la ligne 10 PRINT SQR A sera codee ainsi : 

0, 10, 6, 2*10, 151, 241, 107, 65, 13 

(\f) : CHR$13 : retour-chariot (ENTER) 

N.t). : la flu du prugr-auuue ae signale par un octet 
egal a &FF<255). 

A partir de ceci, il est possible de trouver les co- 
des de chaque instruction BASIC ; ne vous fatiguez 
pas, Je l'ai Fait pour vous : 

Chaque code comprend 2 octets : un prefixe (E6,E/,F0 
ou F1) et le code proprement dit. 

Dans le tableau de la figure 1 , les instructions en 
majuscules normales ont pour prefixe 4F1, en minus- 
cules normales 4F0, majuscules soulignees 4E6, minus- 
cules soulignees &E7. 

VARIABLES ET TABLEAUX ALPHANUMEFIQUES 



ID1 


ID2 


8 


IND- 


y 


X 


LEN 


VI 


Id 



Figure 2 



ID1 



lere lettre du nom de la variable 



ID2 : 2eme lettre du nom de la variable 
(+32 (420) si variable 
(+160 (4A0) si tableau 

: CHR$(0) 

IND : index relatif fin (de variable 

(de la derniere variable du 
tableau 

Y,X : dimensions (X,V) du tableau ; ou X = Y=0 pour 
une variable 

LEN : longueur de la (les) chatnes (s) 

VI, V2., ... : variable 

Exemple : AB$="ABCD" sera code ainsi : 

65, 98,0, 19.0,0, 16,65.66,67.68,0 



VARIABLES ET TABLEAUX NUMERIQUES 



ID1 


ID2 





XND 


Y 


X 


136 


IOt 


SGN 


V1 


VI 


V3 


VH 


V5 


V6 



ID1 : lere lettre du nom de la variable 

ID2 : 2eme lettre du nom de la variatle + 128 si ta- 
bleau 

: CHR$(3) 

IND : index fin derniere variable du tableau ; ou 
= 11 (SB) si variable unique 
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w 

H 

H 

W 

o 
o 



Lou \^ 


b 


6 


7 


8 


9 


A 


B 


8 


AND 


ASC 


ABS 


AREAD 
CSIZE 


LIST 


POKE 


TROFF 


1 


OD 


STR$ 


INT 


ARUN 
GRAPH 


INPUT 


POKE 


TO 




2 




VAL 


RIGHT$ 


BEEP 
GLCURSOR 


GOTO 


PAUSE 


CHAIN 




3 




CHR$ 


ASN 


CONT 
LCURSOR 


GCURSOR 


P.. . 


WAIT 




1 




LEN 


ACS 


CURSOR 
SORGN 


GOSUB 


RUN 


ERROR 


5 




DEG 


ATN 


USING 
ROTATE 


CSAVE 


FOR 


LUCK 
COLOR 




6 




DMS 


LN 


GRAD 
TEXT 


IF 


READ 


UNLOCK 
LF 




7 




STATUS 


LOO 


CLEAR 


PRINT 




RESTORE 
LINE 




8 


MEM 


POINT 


EXP 


CLS 


LET 


(rmt) 


RANDOM 
LLIST 


y 






SGN 


CLOAD 


RETURN 




LPRINT 






A 






LEFT$ 


CALL 


NEXT 


RADIAN 


RLINE 


B 


TTMR 


SQR 


MID$ 


DIM 


NEW 


REM 


TAP, 


C 


INKEY$ 




RND 


DEGREE 


ON 


STOP 


TEST 


D 


PI 


NOT 


SIN 


DATA 


OPN 


STEP 




E 




PEEK 


COS 


END 


OFF 


THEN 




F 




PEEK 


TAN 


MERGE 


GPRINT 


TRON 







Y,X : dimensions (Y,X) du tableau ; ou X = Y=0 si 
variable 

136 : CHR$(136) 

10T : partie entiere du log defcimal de la variable 

SGN : slgne = si positif 

= 128(480) si negatif 

V1,V2,V3,V4,V5,V6 : representation de la variable 

Exemple : QR=-2367.82 sera code ainsi : 



Figure 1 

81,82,0, 11,0,0, 136,3, 128,3b, 105, 130,0.0,0 
car 423=35 j 467=105 ; 482=130 
-2367,82 

Et voila... 
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utilitaire 



Je trie pour vous 



Depuis la rentree des classes, les professeurs com- 
mencent a crouler sous les fiches d'eleves qu'il faut 
classer, et 11 est bien dommage que le PC— 1211 nedls- 
pose pas du code ASCII . 

Vole trois versions d'un programme permettant de clas- 
ser, selon les cas, de 22 a plus de 50 mots, avec 
plus ou mulna de precision. 

Le programme ASCII- 1 a la capaclte la plus grande en 
mots, mai3 ne tlent compte que ae la lere lettre. II 
est possible, aares une premiere execution, de le re- 
executer en tenant compte de la seconde lettre, pour 
les mots ayant ia meme inltiale. 

ASCII-2, pour une capacite d'une quarantaine de mots, 

tlent compte des deux premieres lettres et ASCII-} 
des trois premieres, pour une capacite helas bien 
Juste en lycee, tlent compte de trois lettres. 

Llgnes 1-3 

Dans les trois cas, les llgnes a 3 protegent le 
contenu des memoires d'un effacement Involontaire 
et accldentel a la mlse en route du programme. 

Ligne 1 

Effacement des memoires. Affectation d'une valeur 



l: INPUT "IN=1/ 


i- 


0UT=2«"IA»IF 


12: FDR W-V+2T0 


A=1G0T0 4 


31+2A(27) 


2: IF A=2G0T0 1 


STEP 2 


9 


13: IF A<V+i)(A( 


2: GOTO 1 


W+DG0T0 16 


4: CLEAR :F0R 2 


14:A=A<V+1):A<V 


=1T0 26:A(Z) 


+1)=A(U+1):A 


=2: NEXT 2: 


(W+1>=A 


BEEP 2 


15»C*=A*<V>:A*( 


5:A(29)=3l: 


V)=A$(N):A$( 


INPUT "LETTR 


w>=c* 


E SIGNIFICAT 


16: NEXT N 


IVE:"iA(28) 


17: NEXT V 


6:AC27>A<27>+ 


18:D=0:EEEP 2: 


1 


FOR 2=33T0 3 


7 : PAUSE "H0T"5- 


1+2 A (27) STEP 


USING "UnW'i 


2:D=D+1 


A<27>!" CX«F 


19: PRINT USING 


IN) ": INPUT A 


"»»«"; Di" '■; 


$<A(29)):IF 


A*<Z) 


A*(A(29))="X 


20: IF A(Z+l)OA 


"GOTO 10 


(Z+3)PRINT " 


S:A(30)=A(29)+ 


" 


1 : PAUSE 


21: NEXT Z: PR I NT 


USING "8»«"; 


II u 


A(28)>"E LET 


22: INPUT "LETTR 


TRE DU MOT"; 


E-'CLASSE SUI 


ii(27>: INPUT 


VANTE?"?H*J 


A(A(30>> 


IF H$="0" 


9aA<29>«A<29>+ 


GOTO 4 


2: GOTO 6 


23: INPUT "RELEC 


10:A(27)=A(27>- 


TURE ? "5 1*: 


1 


IF I$="0" 


11: FOR V=31T0 2 


GOTO 18 


9+2A(27)STEP 


24: END 



aux 26 premieres memoires, c'est-a-dlre aux lettres 
de 1' alphabet. 

Dans le troisieme programme, on s'arrete a 2b. Par 
la suite, Z sera toujours superieur a 26. Voir ligne 
8 de ce programme. 

Lignes 5-10 

Introduction des mots et des lettres sur lesquelles 
se fera le tri alphabetlque. 

Dans le programme 1, les memoires contenant ces don- 
nees commencent a 31 . II faut commencer par entrer 
le numero de la lettre significative : lors de la 
premiere execution ce 3era 1 , mala on peut souhaiter* 
classer les mota coermencant par une lettre donnee sur 
le critere de leur deuxieme lettre, etc. A(28) permet 
un rappel utile en ligne 8. II n'est pas necessaire 
de savoir a l'avance le nombrc de noma a entrer. 
Dans les variantes 2 et '$, en revanc-ie, on cree une 
boucle en fonction de ce nombre qui Jolt etre connu. 
On peut mettre son debut prefere sur son programme 
pre fere. . . 

En ligne 7, chacun des trois programmes demande le 
nom a entrer, sous forme de chalne alphanumerLque, 
apres en avoir rappele le numero. Celui-ci etant une 
variable, il est impossible d'avoir un message d ' IN- 



l: INPUT "IH=U 


14 


IF h(V+1XA< 


n»JT=2: "5 A: IF 




hjn i )i30T0 IS 


A=2G0T0 20 


l c . 


h=a..V+1):A(V 


2: IF A=1G0T0 4 




i-1 ,).-A(W+l):A 


3: END 




i"W+L)=A 


4: CLEAR :F0R Z 


16 


; r :=A-V+2):A(V 


=1T0 26:A<Z) 




•- -ri(W+2):A 


=Z:HEXT Z: 




i U+;:)=B 


BEEP 2 


17 


i r-n*(V):A*( 


5: INPUT "NB M0 




'■'"> -ft*<W>:A*( 


TS:"?A<27) 




W)«C* 


6: FOR A (29) =32 


18 


NEX" U 


TO 29+3A<27) 


19 


NFX" V 


STEP 3: A (23) 


20 


D-D I BEEP 2: 


•=A(28) + 1 




FOP Z=35T0 3 


7: PAUSE "Hit "! 




?+3(K27)STEP 


A(28): INPUT 




3'>B«D+1 


A3(A(29)) 


21 


PRINT USING 


8:A(30)=A(29)+ 




"JlM'SIi; " "? 


l: PAUSE "LET 




Ai'.Z-': IF A(Z 


TRE 1": INPUT 




+ > ,? >A(Z+4) 


A(A(30)) 




PRINT " " 


9:AC31)=A(29)+ 


'/'V 


if':;- Z 


2: PAUSE "LET 


23 


PRINT " ": 


TRE 2": INPUT 




SOTCi 1 


A(A(31)) 


50 


If h(V+2XA( 


10: NEXT A (29) 




i-t+2 'RETURN 


11-: FOR V=32T0 2 


51 


E=H'V+1):A<V 


9+3A<27>STEP 




-i J --ri(W+l):A 


~2 




•U+:.)-E 


12: FOR W=V+3T0 


32 


i-=w V+2):A(V 


32+3AC27) 




-K-;,'=A(U+2):A 


STEP 3 




'..[•H-2)=F 


13: IF A(V+1)=A( 


53 


G$=h$(V):A*< 


W+PGOSUB 50 




" ■ m$(W):A*( 


:60T0 18 




WV 6*1 RETURN 
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w 

H 
H 

W 

!=> 

O 

o 

ft. 



l: INPUT 'IN=1/ 


A<28>! INPUT 


STEP 4 


)PRINT " " 




RETURN 


i::>ut=2:";a:if 


A$CZ) 


13: IF A<A+i>=A< 


20: NEXT Z 


90 


C=A<A+1>:A<A 


A-1GGT0 4 


8: FOR A<29>=Z+ 


E+DGOSUE 30 


21: INPUT "RELEC 




•U>=A<B+1>SA 


2: IF A=2G0TG 1 


1.TO Z+3:A<30 


: GOTO 16 


TURF.?"!A$:IF 




<B+1)=C 


S 


;,=AC29)-Z: 


!4: IF A<A+1XA< 


A*-"0"i~OTO 1 


91 


Ii=ACA+25:A(A 


3: GOTO 1 


PAUSE A < 30)5 


6+1)6070 16 


•?, 




+2>=A<B+2>tA 


4: CLEAR (FOR 1 


"E LETTRE DE 


:5:G0SUB 90 


22: END 




<B+2>=D 


= 1T0 25»A<Z> 


"5A*<Z) 


16: NEXT E 


30: IF A<A+2)=A< 


92 


.E=A(A+3):ACA 


=Z:NEXT Z 


9 i INPUT A<A<29 


17: NEXT A 


E+2)G0SUB 40 




+3>=A<B+3>>A 


5: INPUT "NE MO 


>>:NEXT A<29 


1S:D=0:F0R Z=33 


: RETURN 




<B+3>=E 


TS! " 5 A<27) 


> 


TO 29+4A<2?> 


31: IF H(ft+2XA< 


93 


8H* a A*<A)!Af< 


6: FOR Z=33TG 2 


10s NEXT Z 


STEP 4:D=E+1 


E+2 'RETURN 




A>=A$<IO:A$< 


9+4A<27>STEP 


1UFCR A=33TG 2 


19: PRINT US I KG 


52SG08UB 90: 




B>-H*t RETURN 


4:A':28>=A<28 


5+4hC27>STEP 


"ttjnt" ; d; *■ "; 


RETURN 






>+i 


4 


A*<Z>:IF <A< 


40: IF R(fi+3XA( 






7: PAUSE USING 


12: FOR B=A+4T0 


Z+1X>h(Z+5) 


B+35 RETURN 






"«rt"!"«OT - l 


29+4A<27) 


>*(A<2+1)<26 


4i:GUSUB 90: 







PUT, d'ou 1' utilisation dc la PAUSE. II est alors 
possible d'entrer une variable sous la forme Ai(A(29>) 
astuce tout a fait commode que beaucoup connaissent 
peut etre, mais que je n'ai deeouverte qu'a 1* occa- 
sion de ces programmes. Cette formulation est impos- 
sible apres un message d' INPUT. 

En lignes 8, ou 8 et 9, il faut rentrer (sous leur 
forme numerique) la ou les lettres signif icatives. 
Pour la meme raison que ci-deS3US, PAUSE puis INPUT. 
Dans le programme 3, puisqu'il y a 3 lettres a ren- 
trer par mot, celul-ci est rappele dans le message 
en PAUSE. C'est pour eviter a ;ette occasion le mes- 
sage d'erreur n° 1 que Z a ete utilise au lieu de A 
(28) ou A(29). Voir consequence en ligne 19 : en ef- 
fet Z n'a plus une valeur Identique pour chaque mot. 
La suite des programmes est fort classlque. Le second 
pourralt comme le troisleme etre optimise par l'em- 



ploi d'un oouo- programme. II oonvient de fai re chan- 
ger d'ordre de concert chacune des donnees d'un meme 
pas, evidemment, et de tenlr compte de la possibili- 
ty, si le trl se fait sur pluaieurs lettres, pour la 
premiere ou la seconde de 2 mots d'etre ldentiques. 
L'emploi de Z risque de fausser le Jeu lors de 1' exe- 
cution du troisleme programme, mais Je doute que l'on 
s'en rende compte sur une classe de 22 eleves. 

Lors de la boucle cul assure 1' impression des resui- 
tats, l'ordinateur separera d'une ligne blancht. les 
groupes de mots conmencant par une meme lettre. C'est 
utile en particulier pour le premier programme, pour 
savoir si l'on a besoln d'une nouvelle execution avec 
une nouvelle lettre significative. Sans le IF A(Z+1) 

<26 en ligne 19 d'ASCII-3, tous les mots en "Z" se- 
ralent separes. 

^^^_^^^^^^^^_^^^^^^^^_^^___ J.F. Chapin 



Bogues, trues, 
erreurs et curiosites 



1) Dans un listing (fonctionne seulement sur PC- 1500) 
Tapez : a) NEW 

b) 1 "VOILA LA B0GUE" (ENTER) 

c) paszxrz. en mode RUN 

d) tapez RUN -* ERROR 21 INI 

e) | CL| puis passez en mode PRO 

f ) tapez sur t 

et observez le numero de ligne ! 

Gardez maintenant le doigt appuye sur ^ , pas mal 
non ?... maintenant encore plus fort : 

- reprenez la procedure predente Jusqu'a e) compris 

- tapez n caractere3 (o<n{25) 

- tapez t 

et regardez ou se trouve le curseur ! 



2) Plus grave d ana le BASIC : 
Faites NOT lenterl reponse :-i (logique non 7) 
Faites NOT -1 lenterl reponse :0 (toujours logique...) 
Faites NOKN0T 0) reponse :-3'233 (Alio ?!) 

II semblerait que ces bogues soient caracteristiques 
des premiers PC-1500 mis sur le marche car elles n'ap- 
paraissent plus sur lea machines achetees recemment. 
Cependant les possesseurs de PC2 de TANDY seront heu- 
reux d'apprendre que la deuxiene bogue citee plus 



haut fonction sur ,eur machine... 

3) Comment reconnaltre si votre PC-1500 est une "nou- 
velle edition" ? 

Le nombre de serle du PC- 1 500 est du type "AXXXXXXY" 
si A = 1 "anclenne edition" 
si A = 2 "nouvelle edition" 

'I) Tapez : . NEW 

. 1 A (en mode PRO) 

. RUN (en mode RUN) 

. "ERROR 1 INI" (normal, non ?) 

maintenant . [CL| 

. POKE &40C6.0 (transfcrme : ligne 1 — » 

ligne 0) 
. A = 23<I56789 (ou n'lmporte quel nombre) 
. RUN 
. " 123156789" (un peu moins normal...) 

5) Tapez : . INT (2a 14) reponse : 15 

. 2x2x2x2 = 15 7 pourquoi pas... 

Cette erreur eat due au fait que le BASIC utilise 
des calculs logarlthmlques pour calculer la fonction 
A 
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• i • 



statistiques 




LISSAGE DES MOINDRES CARRES AVEC UN SHARP PC 1211 



Dan3 1' etude de la plupart des phenomenes "statisti- 
ques" on est amene a effectuer des mesures sur des 
"couples" de valeurs et a essayer de mettre en evi- 
dence des relations entre elles. 

On peut ainsi etablir un graphique oil chaque point 
d'abscisse X et d'ordonnee Y correspond a une ODser- 
vation. Dans un grand nombre de cas la relation en- 
tre X et Y est "fonctionnelle" , ce qui signifie que 
les points s'allgnent approximativement sur une cour— 
be qui peut etre une droite, ur.e parabole, une Hyper- 
bole, etc... I_ en est ainsi par exemple pour les 
depenses annuelles d'un menage (X=mols de l'annee, 
Y=montant mensuel des depenses) et pour toutes ies 
statistiques economlques ou du type "etudes de mar- 
ehe". 

La determination de la meilleure "courbe" sur laquel- 
le les mesures peuvent s'ajuster se fait generalement 
par des methode3 mathematiques, dont une des plus 
connues est la "methode des moindres carres". Cette 
methode consiste a trouver les parametres de la cour- 
be tels que la somme des carres des erreurs obtenues 
du fait du choix de cette _coucbft. soit la plus faible 
possible ; par' exemple dans le cas d'un ajustement 
des mesures X I a une droite Y=AX+B on essayera 

de mlnimiser la 3omme des valeurs ( Y.-AX.-B)2. 

l l 

Remarque pour les "matheux" : cette erreur est mini- 
male quand les derlvees partielles de cette somme 
par rapport a A et B s'annulent, d'ou un systeme de 
deux equations lineaires permettant de determiner 

ces deux valeurs en fonction des mesures X et I . 

1 i 

Le programme ci-apres ecrit pour SHARP PC 1211 ou 
TRS80 "poquette", permet d'effectuer des "lissages" 
avec des courbes du type : 

Y = A X n + B 

le parametre n pouvant etre choisi arbitrairement, 
positif ou negatif, entier ou decimal, les seules 
limitations venant des capacites de la machine qui 
ne tolere que des resultats compris entre 10~99 et 

10+99(d'ou dans certains ca3 des erreur3 l a 

l'execution) . 



Apres calcul des parametres A et B une "projection" 
de Y peut etre realisee entre deux valeurs linages 
de X, avec calcul du taux de crolssance moyen cor- 
respondant. 

UTILISATION DES MEMO I RES 



- A(27),A(28),...: Mesures X 1 X 1 X Y ... 

- L : Nombre maximal de valeurs fixe a *40 pour cette 

version du programme, soit 20 mesures 



Lissez 

pour mieux 

prevoir 



w 

E-i 
H 
W 

!=> 
O 
O 



- M : 

- N : 

- P.Q 

- A,B 

- E : 

- C,F 

- T : 

- X,Y 

- Z : 

- U,V 



Nombre exact do mesures 

Ordre de la fonction (choix par 1' utilisateur) 

R,S,C : Elements du calcul de A et B 

: Coefficients de la fonction Y = A X n ■* B 

Erreur a minimiser 

: Valeurs de X bornant la periode de pro.leotlon 

Taux de croiasance moyen pour lu periode choisie 

: Valeurs X Y courantca 

Indice des boucles 

W,0S : Variable de travail 



POPULATION USA 


LISSAGE ORDRE 10 


< MILL IONS HAB> 






A=3. 17788244E-28 


DONNEES X/Y 


B=-35. 39287664 


l.:800./5.Z 


E=8. 46929 1735E-0 


2. :810./7.2 


1 


3. :820./9.6 




4.:830.'12.9 


PROJ S00.-803. 


5. : 840. /1 7.1 


800.:-1.27062377 


6.: 850.. '23. 2 


801.: -0.84 168837 


7. :860./31.4 


802.: -0.4079063 


8. : 870. --39. 8 


803.: 0.03077 105 


9.: 880. ^50. 2 




10.:890./62.9 


— > 800- 960: 


ll.:900./76. 


3. 14* 


12.:910.'92. 




13.J920./105.7 


PROJ 958.-962. 


14.: 930.. '122. 8 


958. : 171.5225725 


15.: 940.. '131. 7 


959. : 173. 6926153 


16.: 950.. -'151. 1 


960. : 175. 8831 193 


17.:960./179.3 


961.: 173. 0942558 




962.: 180. 3261975 


LISSAGE ORDRE 1. 


— > 800- 962: 


A= 1.0672794 12 


2.20* 


B=-873. 42941 18 




E=3. 225433443 


PROJ 980.-935. 





980. : 224. 2632559 


PRO J 955.-960. 


981.: 226. 9250077 


955. : 145. 8224262 


982.: 229. 61 12917 


956.: 146. 8897062 


933.:232.32230*= ,,_ 


957. : 147.9569852 


984. : 235. 0582604 


958. : 149. 0242652 


985.: 237. 3193509 


959.: 150. 0915442 


— > 800- 985: 


960. 1151. 1588232 


2.07V. 


— > 800- 960: 




2. 115s 
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Remarque 

D et F sont utlllsees oomme parametres d'une boucle 
FOR.. .NEXT et ne peuvent pas depasser la valeur y99 
de ce fait si les Xj correspondent a des numer;js 
d'annees, lis ne devront pas comporter de chiffre 
indiquant le "millenaire" . 

PHASES DU PROGRAMME 



- Ligne 100 (Shift Z) : Remise a zero generale et 
initialisation de L (10 = nombre de memoires dls- 
ponibles). Enchalnement sur "A". 



- Ligne 150 (Shift A) 



Choix des "actions" 



D 


Entree des Donnees 


S 


Sortie des donnees 


L 


Lissage 


P 


Projection 


F 


Fin 



Toutes ces actions, a 1' exception de "P", peuvent 

etre initiallsees directement par Shift X. 

- Ligne 200 (Shift D) : Entree des donnees Xi Yj. ; 
a chaque "VAL X?" ou "VAL Y?" frapper la valeur 
correspondante puis ENTER ; pour terminer faare 
ENTER directement pour repondre a "VAL X?" ; le 
nombre de "paires" est alors affiche et l'on re- 
tourne en "A"; si ce nombre est inferieur ou egal 
a un la memoire M n'est pas modifiee. 

- Ligne J0O (Shift. S) : Calcul dps coefficients de 
la formule de Lissage Y = A * X " N apres choix de 
la valeur N. 



Le calcul, qui peut etre assez long dans certains 
cas, est suivi par l'impression ou l'afflchage des 
coefficients A et B et de l'erreur E. 
Enchainement systematique sur "P" (sur "A" si N 
est egal a 0) . 

- Ligne 500 : Projection de Y suivant la formule 
choisie en faisant varier X entre deux bornes D et 
F choisies prealablement. Calcul du taux de crois- 
sance moyen T ; si D e3t superieur a la valeur X, 
rangee en A(27) ce taux est calcule en utilisant 
la valeur correspondante Y] rangee en A(28) a la 
place de A * D " N ; de meme ai F est inferieur a 
Xj4 range en A(25+2M) on utilise la valeur Y^ ran- 
gee en A(26+2M) a la place de A * F" N. 
Enchainement sur le debut de la sequence "P" pour 
une nouvelle projection ; si D est egal a zero re- 
tour en "A". 

- Ligne 600 (Shift F) ; Fin du prog-amme. 



REMARQUE 



Certains 3Cront ourprio par la redaction des lignco 
51 3, 520 et 525 ou les calculs du type AX" N + B 
sont effectues en deux temps ; cecl est rendu neces- 
saire pour eviter des erreurs pour le moins "curieu- 
ses" de la machine ; ainsi si A = 100, B = - 8000, 
X = 80 et N = 1 on obtient les resultats suivants : 
X " N = 80, A X " N = 8000 fflais A X * N + B = 
-0.00000011 !!!... 

Quelqu'un saurait-11 expliquer ce "mystere" ? 



U REM "LISSAGE 


Z:Y=X+l: 


P+X' S 2N:Q=Q+X 




"ERREUR! ": 


MC 


INPUT "VAL X 


A NsR~R+YX A N» 




GOTO "PI" 


2: REM "AUTEUR: 


?"JA<X)»'*VfiL 


S=S+Y:NEXT Z 


515 


:F=W: USING : 


A.GAND0SSI 


Y?"5A<Y>: 


415:C=MP-GQ: IF C 




PRINT "PRO J 


3: REM "C0PYRIG 


NEXT Z 


=0PAUSE "DIV 




"HK"- H IFi 


HT:TRACE+AUT 


210:W=-;Z-l;.'2: 


ISEUR 0!": 




FOR Z=BT0 F: 


. 


PAUSE M5" PA 


GOTO "A" 




W=AZ-N:W=W+B 


4: PAUSE "Z:RA2 


IRES": IF W<= 


42Ci:A=(MR-QS>/C: 




: PRINT Z! 


": PAUSE "A: A 


1G0TG "A" 


B=<PS-QR>^C 




5 Ms NEXT Z 


CTI0N": PAUSE 


215: M=W: GOTO "A" 


425:E=0:F0R Z=l 


520 


U=AD'"N:U=U+B 


"D:ENT DATA" 


300:"S"EEEP l: 


TO 2M-1STEP 




:IF D>A(27> 


: PAUSE "S:S0 


PRINT "BONNE 


2JG0SUB "I": 




LET D=A<2?>! 


RTIE DATA": 


ES X-'Y": 


U=AX'-N:E=E+ 




U=A(2S) 


PAUSE "L:LIS 


USING 


ABS (V-B-U> A 


525 


V=AF--N:V=V+B 


SAGE": PAUSE 


305: FOR Z=1T0 2M 


2: NEXT Z:E=J 




:IF F< AC 25+2 


"F:FIN":END 


-1STEP 2: 


E/M 




MJLET F=A<25 


90:"I"X=A<26+Z> 


G0SUB "I": 


430: BEEP 2: USING 




+2M>:V=A(26+ 


:Y=A<27+2): 


PRINT 1+INT 


: PRINT "LISS 




2M) 


RETURN 


<z/2>;":";x; 


AGE 0RBRE "5 


530 


IF U=0PRINT 


100:"Z"BEEP ll 


■V'JY'-NEXT Z 


N: PR I NT "A=" 




" — > E99 ':": 


CLEAR :L=40 


:G0TO "A" 


! A: PRINT "B= 




GOTO "PI" 


150:"A"EEEP ll 


400:"L"BEEP 1: 


"SB! PRINT "E 


535 


T=«<<ABS (V 


INPUT "ACTIO 


PAUSE "F0NCT 


="JE 




/IJ>>>-(1/<F- 


N <D/S/L/-P/'F 


Y=AX"N+B": 
INPUT "VAL N 


500:"P"BEEP 1 s IF 




D)>)-1)*E2 


>?";o$:goto 


A=0IF B=0 


540 


BEEP 2: PRINT 


a* 


co->A) ^";u 


GOTO "L" 




"—>"; USING 


200: "D" BEEP l: 


*v J r n f ■ r f"t 

: IF U=0G0T0 


505: "PI "INPUT "D 




"»»tt»";D;"-" 


PAUSE USING 


"A" 


EB PRO J <0-> 




;f; ; using 


iINT CL^2>»" 


405: "L1"N-U:P=0: 


L> ?"JW:IF H 




"88tt».R8";T5 


PAIRES MAX 


Q=0:R=0:S=0 


=0G0T0 "L" 




":<":G0T0 "PI 


205: FOR Z=1T0 L 


410: FOR Z=1T0 2M 


510: D=W: INPUT "F 




" 


STEP 2:X=26+ 


-1STEP 2: 
G0SUB "I":P= 


IN PR0J? M ltt1 

IF W<DPAUSE 


600 


"F"END 



.Alain Gandossi 
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jeu. 



Sur votre poquette 
tic-tac-toe 



Le tic tac toe est un morpion qui se Joue sur un da— 

mier 3 X 3- Le but du jeu est d 1 aligner 3 runds ou i 

croix. 

La numerotation des oases se fait ainsi : 



1 


2 


3 


4 


5 


6 


7 


8 


y 



Tableau 



Le programme demarre en tapant 3HFT X puis vous de- 
mande si vous voulez Jouer ie premier. Heporidez par 
ou N, donnez votre coup (cf tableau) puis attendee 
le coup de 1'ordinateur. 

Vu la rapldite du PC— 1211 le programme effectue son 

analyse sur 1/2 coup. Le poquette simule chacun des 

coups possibles et examine la situation. 

De ce fait, si a ce moment, 11 se retrouve avec une 

rangee de 2 plena adverses, il a perdu la partie. 

C'est pourquoi le coefficient affecte a une rangee 

de 2 pions adverses est superieur a celui affecte a 

une rangee de 2 de ses pions. 

Le coefficient d'une rangee de 3 de ses pions est e- 



videmment superieur a tous les autres, la victoire 

primant tout (sauf .a defaitcK 

J'ai voulu eviter que la machine Jolb non paa pour 

gagner mais pour empecher 1'adversaire de gagner. De 

ce fait, le coefficient d'une rangee d'l de ses pion3 

est superieur au coefficient d'une rangee d'un pion 

adverse. 

Coefficients : Memoires L 

M ,- — -— 

N 

> 

P 

Une chose peut etre modifiee pour otitenir un meilleur 
niveau : Jouer le premier coup an b conduit tres sou- 
vent a des parties nulles car ensuite chaque pious 
pose constitue une rangee de 2, done une menace. II 
devient de ce fait tres difficile de preparer quel- 
que chose a deux niveaux. 

II faudrait peut etre eliminer ce coup des possibi- 
lltes de premier coup (lignes ^Oy, 510). 

Variables 



A a I 



tableau de Jeu 



4 : pion de 1'ordinateur 

5 : pion de 1'adversaire 
: case vide 



l:R=0:U=0:Y=a<X) 




7STEP 3;T=J; 


270 


NEXT Z; IF Z<=9 


510:U=U+JlJU--U^5:U= 


+<a<x)=0>*<acx 




GOSUB l;S=S+l>; 




THEN 800 


U-1NT UjK=INT 


+n+a<x+2*T>*c 




NEXT X 


300 


"0" INPUT "Ou j 


(4*U)iK=H-2*KJ 


acx+T)=0>) 


25 


POR X=JTO 3: T= 




nuez-uous (1-9 


PRINT "Je Joue 


2:R=a(X)+QCX+T)+ 




3; GOSUB 1;S=S+ 




) ?"J2; IF a<z> 


en "jK:e<l0^4 


a<X+2*T): IF R= 




U:NEXT X 




< >0THEN 300 


520: GOTO 300 


0RETURN 


30 


T=6:F0R X=1T0 


301 


3 (Z) =5: FOR Z=J 


600: BEEF 5:PRJNT " 


3: IF R/YOINT CR 




3STEP 2: T-T-2: 




to 9: if acz;--0 


Je joue en " ; Z 


/Y^LET U=0: 




GOSUB 1:5=S+U: 




LET Z=J9 


610:PR1NT "Et je 9 


RETURN 




NEXT X 


302 


NEXT Z: IF Z<19 


eg ne. . • ":END 


4:U=<a(X;=0)+(@( 


220 


IF S>JLET J=S: 




THEN 800 


700: BEEP 5: PAUSE " 


X+T)=0)+(@CX+2 




K-Z: IF S>50000 


310 


PAUSE "Je re f 1 


Uous gagnez. . . 


*T)=0> 




THEN 600 




ech is . . . ' : : GOTO 


■ : SPRINT "B R A 


8:U=@(12-+U+3*(Y- 


225 


9<Z)=0 




"fV 


U .0 ! ! ! ":END 


4»*(U<>3): 


230 


NEXT Z 


500 


•■X"F0R PQ-1T0 


800: BEEP 5: PRINT " 


RETURN 


240 


IF S<-50000 




9:B<PQ)=0.NEXT 


Eg a 1 J t e . . . 


15: "A"J--JE9 




THEN 700 




PQ.L-1E5: 1^100 




16:F0R Z=JTO 9: IF 


25e 


BEEP 2: PRINT " 




fN=10sO=--lE6: 3 




INT acz><>0 




Je joue en " j K 




■--1E3sQ=- 5 




NEXT ZiGOTO 24 




: a (to ---4 


505 


INPUT "Uous co 


UERSION 





26e 


J=0:POR Z----1T0 




nmence2 ? Co-o 


p C-1500 


17:@(Z)^4 




9; IF a(Z)---0LET 




V'jZ*:G0T0 Z$ 


20:S=0:FQR X-1T0 




Z---J.9 


509 


"N"R£P1 
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w 

H 

H 

W 

o 
o 



1:R=0:U=0:Y=A<X> 

+<A<X)-0)*<A(X 

+T)+A(X+2T)*CA 

(X+T)=0)) 
2:R=A(X)+A(X+T>+ 

A<X+2T): IF R=0 

RETURN 
3: IF R/YOINT (R 

/Y>LET U=0: 

RETURN 
4:U=(A<X)=0>+(A< 

x+t;=0)+cacx+2 

8:U=A(12+U+3*(Y- 

4))*(U<>3>: 

RETURN 
15: "A"J=~1E9 
16: FOR Z-1T0 95 IF 

INT A(Z><>0 

NEXT 2: GOTO 24 


17:Q(Z)--4 
20:S=0:FOR X=1T0 

7STEP 3:T = l: 

GOSUB J;S=S+U: 

NEXT X 
25: FOR X=1T0 3JT= 

3: GOSUB I : S=S+ 

U:NEXT X 



30:T=6:FOR X^ITO 

3STEP 2: T>T-2i 

GOSUB ]:S=S+U: 

NEXT X 
223: IF SXJLET J=S: 

K=Z: IF S>50000 

THEN 600 
225: A(Z>^0 
230: NEXT Z 
240: IF S<-50000 

THEN 700 
250_:BE£P..2.:PR.1NI "_ 

Je joue en "j 1 ^ 

: ACIO--4 
260: J-0:POR Z*JTQ 

3. IF A(Z.»-0LET 

Z=13 
270: NEXT Z- IF Z---9 

THFN R00 
300: "0" INPUT ' Ou j 

ouez-wous (.1-3 

) ?";?: IF A<Z) 

O0THEN 300 
30l:<XZ)=5;eOR Z-^l 

TO 9: IF A(Z)-0 

LET Z^19 
302: NEXT Z: IF Z<19 

THEN 800 



J : SCORE DU MEILLEUR COUP ENREGISTRE 

(-ooau depart car le score de la lere case 
examinee doll etre > a J) 

K : mellleur coup enregistre 

L,M,N : coefficient respectlveroent d'une rangee de 
3, 2, 1 pions de l'ordinateur 

0,P,Q : idem pour les pions de l'ordinateur 

R : summe de la valeur des pions de la rangee, colon- 
ne ou diagonale examinee ; sous programme de ro- 
tation ( l — »8) 

S : score de chaque position examinee (est comparee 
a J en 220) 

T : pas entre chaque case de la ligne, colonne ou 
diagonale examinee, utilisee avec X en 20, 2b, 
JO el dans le S/PROM de 1 a 8. 

U : base du generateur aleatoire utilise pour cfioisir 
le premier coup du PC— 1 2 1 1 

V : utilise des S/PRGM 

- en ligne U : nombre de case vide de la li- 

gne, colonne ou diagonals etu- 
diee ; 

- en lLgne ti : score de cette ligne. 

il : 

X : premiere case de la ligne, colonne, dlagonale 
etudiee (of T) 

V : identification du premiftr dp la ligne, colonne, 

diagonale etudiee 

Z : coup etudie, boucle generale. 



3.10: PAUSE "Je refl 
ech is. . . " I GOTO 

500: ■■X"A=0:B=0:C--0 
: D=0: E=0J F*0: G 
=0;H=0: 1=0: L-J 
E5:n=J00:N^J0: 
Q=-l£6JP*-lE3s 

505: INPUT "Uous co 
mmencez ? (o-n 
>"}?*: GOTO Z$ 

""SBSTWreH 
510:U=U+JUU=U*5:U= 
U-INT U:K=JNT 
C4U):K=1+2KJ 



PRIST "Je joue 
en •;\<:ft(.K)=A 
520: GOTO 300 
600: BEEP 5: PR J NT " 

Je joue en "jZ 
G10: PRINT "Ex je 9 

oqne . . . " : END 
?00: BEEP 5: PAUSE " 

Uous gagnez. . . 

": PRINT r B R A 
! ! ! " : END 
800: BEEP 5: PRINT " 

1 9 a I i t e .. . . 

UERSION 
PC- 1211 



OFGANIGRAfME 



INITIALISATION 

I 

CKOIX DU 1° JOUEUR (LIGNE 505) 

* non ON VA A L' ETIQUETTE "0" 
L'ORDINATEUR JOUE EN 1° > 



I oul 

ON JOUE 1 COUP (LIGNES 50y, 510) 

PARMI LES 5 POSSIBLES 

i 



OH DEMANDS SON COUP ( LIGNES 300, 


301, 


302, 


3<o; 


AU JOUEUR 








ON VERIFIE OU'IL RESTE 








DES CASES LIBRES 









J«-- oo (LIGNE 15) 
i 



BXAMEN DES COUPS POSSIBLES 



CASE DEJA EXAMINEE 

OCCUPEE ? 

^ non 
OH Y MET 1 PION 
DU PC-121 1 

i 



oui 



EXAMEN DE LA PROCHAINE CASE 
LIGNE 16) 



(LIGNE 17) 



OH EVALUE LA POSITION (LIGNES 20,15.30) 

S/PRGRM DE 1 A 8 



SI LE SCORE DE LA POSITION 
EST SUPERIEUR AU KEILLEUR 
SCORE DEJA ENREGISTRE (oo J ) 



RETOUR A LA POSITION 
IMITIALE 

1 

PTOCHAINE CASE 

i 



ijlui's le coup examine 
deviant le meilleur 
coup 

( LIGNE 220) 

( LIGNE 225) 



( LICNE _'30> 



L2 PC-121 1 JOUE LE MEILLEUR 

COUP ENREGISTRE, (LIGNE 250) 

APRES AVOIR VERIFIE SI LA 

POSITION N' ETA IT PAS PERDUE, ( LIGNE 240) 

ON VERIFIE QUE LA PARTIE N'EST PAS NULLE 



— r~ 

puis 



, P. Petit 
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le DOS de A a Z. 



COPY 

(suite) 



Le Modele 1 possede plusieurs Systemes d 1 Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffe- 
rents systemes ont beaucoup de points communs, 
particulierement ceux de la "lignee" TRSDOS- 
NEWD0S-NEWD0S8C-LD0S, qui s'inspirent tous, a 
quelques details pres, du TRSD03 de Tandy (version 
Initiale 2.1). Nous publierons regulierement sous 
forme de fiohes pratiques, les commandes de ces 
differents DOS, classees alphabstiquement . Ces 
fiches ne pretendent pas remplaser les manuels 
originaux qu'il est imperatif de posseder (il 
n'etait pas envisageab'le de publier sous cette forme 
1' equivalent de plusieurs centaines de pages ...). 

Leur but est de fournir a l'utllisateur une 
information rapide d'acces (classement alphabetique) , 
pratique (exemples d'utilisation ) , comparative 
(differents DOS) et dans une langue qu'il est cense 
r.onnaTtre (f rancais) _ . . 

Les DOS les plus repandus ont ete retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWD0S80 version 2 d'Apparat et le 
LDOS version 5.0 de Lobo Drives International . En 
regie generale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les differences ou les 
apports rencontres dans les autres systemes 
d 'exploitation. 



Conventions d 'ecr iture 



Dans la description des commandes, les mots en 
caracteres majuscules designent les commandes 
proprement dites, ainsi que les mots-cles assocles. 
Les mots en caracteres minuscules ne font pas partie 
des commandes mais en representent la forme. Au 
moment de 1' execution, il faudra leur substituer 
le ou les mots appropries. Parmi ceux-ci, nous 
trouverons par exemple : "nomfich", qui designe 
un .nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu a cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnes devralt lever toute ambiguite. 
Enfin, il faut signaler que le NEWD0S80 emploie 
indifferemment la virgule ou l'espace comme 
separateur dans les commandes. 



:) NEWD0S80 V2.0 (formats 1 a 1) 



- Format 1 



COPY , nomfich 1 [ ,T0J ,nomf lch2L , SPDN=dni] L . DPDN=dnt J 

Les crochets lndiquent que les parametres qu'ils en- 
tourent sont optionnels). 

Ce rormat, comme dans le cas TRSDOS et LDOS, permet 
la duplication d'un fichier origine nomfich I en un 
fichier destination nomfich?. Ce dernier peut se re- 
duire a la simple specification du numero d' unite, 
par exemple : 

C0PY,PR0G/CMD:0, :2 (ou : PROG/CMD:0 TO :2) 

Le parametre SPDN (SourcePDrive Number) lndique au 
SED que pour toutea les operations d ' cntreca/sortlea 
concernant 1' unite de disquette source, les specifi- 
cations de 1' unite dn3 (contenues dans le PDRIVE du 
disque "system") sont a prendre en compte en lieu et 
place des specifications normales du disque source 
(la coramande PDRIVE definie ulterieurement permet de 
determiner les specifications de 10 types d'unites 
de disquette). Ce parametre est surtout utile lors- 
quc 1 ' on vcut copier dc monicrc occaoionncllc un fi- 
chier sur une disquette ayant des specifications au- 
tres que celles decrites dans le PDRIVE (densite , non- 
bre de pistes, format, etc...). Prenons un exemple. 
L'unite 1 est declaree en double densite dans le 
PDRIVE mais on desire copier sur la disquette le 

fichier d'une disquette simple densite. La premiere 
solution consiste a modifier le PDRIVE du disque 
"system" en declarant l'unite 1 en simple densite 
et, apres copie, restituer les specifications initia- 
les ; la seconde solution est plus simple si le PDRI- 
ve contient une specification simple densite en unite 
7 par exemple. II suffira de f rapper : 

C0PY,TEST/CMD: 1 ,TESI7CMD:0,SPDN=7 

Le parametre DPDN a un role ldentique mais cette fols, 
poi_r l'unite de destination (Destination PDrlve Num- 
ber) qui prendra - le temps de la copie- les speci- 
fications decrites aar l'unite dn4 du PDRIVE sy3teme. 

Remarque : Ces options peuvent etre par exemple uti- 
lisees avec profit dans le cas de duplications de fl- 
chiers "origine" et "destination" contenus sur des 
disquettes a densites de stockage differentes, dans 
la mesure ou PDRIVE precise des caracterlstiques as- 
aociecs a ces differentes densites. 

- Format 2 



COFY, $nomf ich 1 [ , TO] , nomf ich2[ , SPDN=dn3 j L . DPDN=dn<J J 

Cette ligne de commande est ldentique au format 1 
excepte le caractere $ prefixant le nom du fichier 
source a copier (nomfichl) et indiquant que celui-ci 
se trouve sur l'unite mais sur un support contenant 
un systeme d'exploitation different de NEWDOS-80 2.0. 
Le systeme demande alors de changer la disquette au 
moment opportun et fait la distinction entre disquet- 
tes source, destination et systeme. Remarque : nom- 
fich2 doit obligatoirement etre sur une unite diffe- 
rer.te de . 

Exemple : L'unite contient NEWD0S-80 et l'unite 1 
une disquette "non-system". On veut transferer sur 
l'unite 1 un fichier PROG/BAS figurant sur une dis- 
quette TRSDOS (systemes d'exploitation differents). 
On devra faire : 

C0FY,$PR0G/BAS:0 TO PROG/BAS: 1 
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- Format 3 



COPY , L : ]dn 1 , nomfich 1 [ , TO] , nomf ich2 [ , SPDN=dn3] L , DPDN=«] 

Ce format est egalement Identiqje au format I a la 
difference pres que 1 ' utilisatejr impose que la copie 
se fasse sur une seule unite de disquette (dnl), les 
fichiers etant sur des supports differents. Le DOS 
demande alors 1' insertion des disquettes au moment 
voulu. Si l'unite est utilises, les disquettes sour- 
ce et destination DOIVENT contenir ie MEME systeme 
d' exploitation (NEWDOS-80). 



Remarque : Dans ce cas, les specifications des noms 
de fichiers ne doivent pas inclure de numero d' unite 
de disquette. Kxemple : 

COPY, 1, PROG /BAS, PROG /BAS 



- Format 1 



COPY, [:]dnl 

L,DPDN=dn«] 

Ce format 
dent, excep 
nation Cou 
differents 
donnees. II 
teurs ne po 
mande alors 
SYSTEM, SOU 



$ncimfich1L,TO],nomfich2[,SPDN=dn3] 

e comporte essentiellement comme le prece- 
te le fait que le fichier source ou desti- 
les deux a la fois) resident sous des DOS 
ou tout simplement sur des disquettes de 

est surtout interessant pour des utilisa- 
ssedant qu'une seule unite. NEWDOS-80 de- 

1' Insertion successive des disquettea 
RCE et DESTINATION. 



d) LDOS 5.0 et 5.1 (formats 2 et 3) 



- Format 2 



COPY nomfich 1 TO :d (LRL=nnn, CLONE) 

Commande indentique au format 1 de ce meme DOS, si 
ce n'est le fait que le fichier destination n'est re- 
pere que par le numero de l'unite ou doit etre inser- 
ree la disquette destination (nom, extension, mot de 
passe identiques a ceux du fichier source). 

- Format 3 



COPY nomdispl TO nomdisp2 

nomdispl et nomdlsp2 sont les noms respectlfs des 
dispositifs logiques d' entrees,' sorties source et des- 
tination choisis dans la liste suivante : 

*KI > clavier 

"DO > video 

*PR } imprimante 

»JL > traceur de commande !Job Log) 

«SX — ) entree source (normaiement *KI) 

"L.0 > sortie liste (normaiement *D0) 

*VD > dlspositif defini par l'utillsateur 

Cette commande permet la recopie d'un organe periphe- 
rique d'E/S vers un autre. Pour l'utiliser, il est 
imperatif que les dispositifs specifies soient actifs 
et aient recu prealablement une assignation a un "dri- 
ver" donne (commande SET). Exemple : 

COPY «KI TO "PR 

effectue la recopie du clavier sur 1 ' imprimante ( cha- 
que touche enfoncee est transmise vers le dlspositif 
d' impression) . 



Index des 
mots-clgs 



La liste des mots-cles figurant ci-dessous est 
destinee a etre exploitee par le programme de 
gestion des articles decrit dans le numero 1 de 
TRACE (pages 58 a 64). Le format est le suivant: 



Noir abi-ege de 1' article, numero de page : I 
mots-cles. 



a 'I 



En prenant 1' habitude d'entrer cette liste a 
cheque numero de TRACE, vous constituerez ainsi une 
petite base de donnees vous permettant de trouver 
plus efficacement et plus rapidement 1' article que 
vous cherchez. Bien entendu, cette liste est donnee 
a titre indicatif, ?t vous pnurroz toujnurs en mo- 
difier ou en completer le contenu, afin de 1 'adapter 
a vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
cles (en principe, lis sont limites a 12 caracteres) 
PROGRAMME par exemple, indiquera tou jours qu'un 
liatage de programme est. donne dans 1 'article. Pour 
cela aussi , faites-nous part de vos idees! 



EDIT, 20 : ESSAI, EDITEUR, LOGICIEL 

ACCEL3, 21 : ESSAI, COMPILATEUR, BASIC, LOGICIEL 

PASCAL80, 22 : ESSAI, COMPILATEUR, PASCAL, LOGICIEL 

DEFORMATION, 24 : PROGRAMME, GRAPHIOUES 

TRACE SEGMENT, 28 : PROGRAMME, GRAPHIOUES 

DE L'ORDRE, 29 : PROGRAMME, CASSETTES 

SYNTHETISEUR VOCAL, 31 : ESSAI, PAROLE, LOGICIEL, 

MATERIEL 
INTERFACE MDX3, 33 : ESSAI, DISQUETTES, MATERIEL 
IL POMPAIT, 3" : PROGRAMME, ENSEIGWEMENT, 

GRAPHIOUES 
TRAITEMENT DE TEXTE? 37 : PROGRAMME, TDT 
OUVERTURE, '10 : BRICOLAGE, MATERIEL, INTERFACE 
NEWDOS80, 11 : ESSAI, LOGICIEL, DOS 
'/U-METRE, HI : BRICOLAGE, MATERIEL, CASSETTES 
OUTILS, 15 : OUTILS, BASIC, ASSEMBLEUR, MONITEUR 
TRACE VARIABLES, 48 : PROGRAMME, BASIC, OUTILS 
UTILITAIRE, 51 : PROGRAMME, OUTILS, CLAVIER, MODI 
HUCLEAIRE, 51 : POQUETTE, PROGRAMME, JEU 
PACE CACHEE, 5T : POQUETTE, PC2, PROGRAMME, 

ASSEMBLEUR 
TRIS, 59 : POQUETTE, PCI, PROGRAMME, TRI 
BOGUES, 60 : POQUETTE, PC2, PROGRAMME 
LISSEZ, 61 : POQUETTE, PROGRAMME, PREVISION 
TIC-TAC-TOE, 63 : POQUETTE, PROGRAMME, JEU 
DOS DE A A Z, 65 : FICHE DOS 
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SHARP est un des plus importants construaeurs rnondiaux 
de materiel electron ique. 

En 1980, il revolutionnait la micro-informatique en 
presentant pour la premiere fois un ordinateur de poche 
programmable en BASIC - le SHARP PC 1211 - ouvrant 
ainsi I'ere du veritable ordinateur individuel. 
Depuis, SHARP a mis au point toute une gamme de 
machines permettant de repondre aux besoins de 
chacun et notamment de couvrir toutes les facettes de 
"informatique individuelle et professionnelle. 
Maintenant SHARP va au-dela des machines et met a la 
disposition des utilisateurs les nouveaux outils du savoir: 

D Bourse cfechange de programmes 
D Bulletin de liaison 

□ Stages de formation 

□ JoumGes tX information 
D Clubs rfutilisateurs™ 




SHARP BUROTYPE MACHINES 

151-153, avenue Jean-Jaures - 93300 AUBERVILLIERS 

TEL.: 834.93.44 (Clubs: poste 364) 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Certification unitaire 100% sans erreur. 

- Duree de vie : 30 millions de revolutions 
(standard de ('Industrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 1/4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 



Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 

75015 PARIS. 
Tel. 533-01-37. 



